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SYSTEM IDENTIFICATION OF 
DAMPED TRUSS-LIKE SPACE STRUCTURES 

SASANARMAND 

National Aeronautics and Space Administration 
Lewis Research Center 
Cleveland, Ohio 44135 

ABSTRACT 

A spacecraft payload flown on a launch vehicle experiences dynamic loads. 
The dynamic loads are caused by various phenomena ranging from the start-up of the 
launch vehicle engine to wind gusts. A spacecraft payload should be designed to meet 
launch vehicle dynamic loads. One of the major steps taken towards determining the 
dynamic loads is to correlate the finite element model of the spacecraft with the test 
results of a modal survey test. A test-verified finite element model of the spacecraft 
should possess the same spatial properties (stiffness, mass, and damping) and modal 
properties (frequencies and mode shapes) as the test hardware representing the 
spacecraft. The test-verified and correlated finite element model of the spacecraft is 
then coupled with the finite element model of the launch vehicle for analyses of loads 
and stress. 

Modal survey testing, verification of a finite element model, and modification 
of the finite element model to match the modal survey test results can easily be 
accomplished if the spacecraft structure is simple. However, this is rarely the case. A 
simple structure here is defined as a structure where the influence of nonlinearity 
between force and displacement (uncertainty in a test, for example, with errors in input 
and output), and the influence of damping (structural, coulomb, and viscous) are not 
pronounced. The objective of this study is to develop system identification and 
correlation methods with the focus on the structural systems that possess 
nonproportional damping. 

Two approaches to correct the nonproportional damping matrix of a truss 
structure were studied, and have been implemented on truss— like structures such as the 
National Aeronautics and Space Administration’s space station truss. The results of this 
study showed nearly 100 percent improvement of the correlated eigensystem over the 
analytical eigensystem. The first method showed excellent results with up to three 
modes used in the system identification process. The second method could handle more 
modes, but required more computer usage time, and the results were less accurate than 
those of the first method. 
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CHAPTER I 
INTRODUCTION 


Hooke’s law states that in a time-independent study of the stress-strain curve 
for structures, a linear relationship exists which defines the elastic coefficients between 
the stress and strain tensors. The material of such structures is linear, elastic, and 
isotropic. Most static structures that operate within a small range of stress and strain 
possess such properties, and follow Hooke’s law. The time— dependent stress— strain 
curve for a vibrating structure also possesses a linear relationship, and thus follows 
Hook’s law; that is, as long as the range of the elastic portion of motion is small when 
compared to the overall size of the structure in question, the structure is considered 
linear. This research study will focus only on structures which follow Hook’s law. The 
Lagrengian coordinate system is used here rather than the Eulerian coordinate system. 

The most direct way of deriving the equation of motion is to use D’Alembert’s 
principle, which states that when a structure is placed in a dynamic environment, the 
resultant forces will be in equilibrium with the inertia forces of the structure. However, 
the contribution of damping, which is the emphasis of this research study, can not be 
fully explained when D’Alembert’s principle is used. When using D’Alembert’s 
principle, the contribution of damping in the equation of motion appears to be a force 
that resists the motion. Therefore, the contribution of damping is similar to those of 
inertia and strain. However, damping offers more than a resisting force. In an effort to 
better explain the contribution and the role of damping in the equation of motion, 
Hamilton’s principle is used. Hamilton’s principle states that the variation of kinetic and 
potential energy, plus the variation of the work done by the nonconservative forces 
between any two time instances, must equal zero. Hamilton’s principle is meant to be 
used when the structural system is complex, and problems with establishing vectorial 
equations may be unavoidable. However, since Hamilton’s principle deals with the 
energy quantities of the structural system and damping forces absorb energy, this 
principle is used to derive the equation of motion. The variational form of Hamilton’s 
principle can be expressed as (Clough, 1975): 

j d(T - V)dt + 

h *1 

where : 

T = kinetic energy of the system 

V = potential energy (due to strain and external forces) of the system 
Wnc = work done by nonconservative forces 
d = variation taken during two time intervals 

The kinetic energy of the system is defined as: 


I 


dWnc dt = 0 


( 1 . 1 ) 
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( 1 . 2 ) 



where : 

m = mass of the system 
q = resultant velocity vector 

The potential energy for a structural system with no hidden stresses such as 
preload, can be expressed as the strain energy, U, of the system: 

V = U = ±kq 2 (1.3) 

where : 

k = stiffness coefficient 
q = resultant displacement vector 

Since the kinetic energy and the potential energy of the system have been 
defined, the only way to model and introduce the energy due to damping in equation 
(1.1) is through nonconservative forces, that is: 


dWnc = F(t)dq - cqdq 
where : 

F(t) = externally applied forcing function 
<5 q = virtual displacement 
c = damping coefficient 

According to equations (1.1) and ( 1 .4), if all nonconservative forces equal zero, 
there is no energy-absorbing media that will zero out the vibration of the structural 
system. Thus, the role of damping force is not only to resist the motion of the structural 
system (in accordance with D’Alembert’s principle), but also to zero out its vibration (in 
accordance with Hamilton’s principle). 

The matrix form of the equation of motion of a structural system can be 
expressed, using either D’Alembert’s principle or Hamilton’s principle, as: 


[M]q ~ [C]q ~ [K]q = [F] 


(1-5) 


In this study, only the homogeneous (steady state) portion of equation (1.5) is 
considered since the modal properties of the structural system can be determined from 
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the mass, damping and stiffness matrices. The force vector determines the response of 
the system when a forcing function is applied to the system. Therefore, equation (1.5) 
becomes: 


[M]q ~ [C]q ~ [K\q = [0] 


(1-6) 


In the majority of papers that were reviewed for this research study, the 
influence of damping was neglected. To leave damping off of the equation of motion is a 
math ematical convenience, which at times is justified. For instance, if the driving 
frequency is not in the neighborhood of the natural frequency of the structural system 
there may not be enough time for the effect of damping to become noticeable with 
harmonic excitation, when the damping is small and the free vibration is over a short 
interval of time (Meirovitch, 1967). The flight-like structural systems considered in 
this research study, however, are excited during a long period of launch (approximately 
10 to 20 minutes), and the transient forces applied to the structure are not harmonic in 
nature. Also, because of rapid changes in the transient forces applied to the flight 
structure, the steady state portion of the excitation is dominated by the transient portion. 
Therefore, during such conditions, the influence of damping should not be neglected. 

There are several ways to represent damping in the equation of motion. The 
most important type of damping is viscous damping, where the damping forces are 
proportional to velocity in magnitude and they act in the opposite direction to the 
velocity vector. Another important type of damping is structural or hysteritic damping. 
This type of damping is associated with internal friction dissipation of material, and it is 
due to cyclic strain. Coulomb damping is another way of including damping in the 
equation of motion. Coulomb damping is similar to viscous damping. The difference is 
that the magnitude of damping force is constant over the range of motion and velocity in 
Coulomb damping (Meirovitch, 1967). In this research study, damping is represented 
by linear viscous damping. 

The most popular method used to introduce damping into the equation of 
motion is attributed to Rayleigh (Weaver, 1987). In this method, the coefficients of the 
damping matrix are proportional to the stiffness matrix and/or to the mass matrix. In this 
case, the equation of motion can be decoupled using the same transformation as that for 
the undamped system. However, in practical structures proportional damping 
properties do not exist, and the damping coefficients are not proportional to either the 
mass matrix or the stiffness matrix. In this research study, the damping matrix is 
nonproportional damping. 

One of the major sources of damping is the friction experienced by the 
connections of a structure. Other sources consist of material damping, such as air 
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resistance. As an example, when considering truss-like structures, a drag force which 
resists the motion of the structure is produced from the friction of the rubbing action in 
the connections. This drag force is proportional to the velocity of motion, and thus it can 
be represented by a viscous damper (Hurty, 1965). The presence of friction has a minor 
role in the steady state response of the excitation for a periodic forcing function, and thus 
it can be ignored (Weaver, 1987). 

The objectives of this research study are the following: 

1) To analytically derive the mathematical equations for system identification 
and correlation of the nonproportional damping matrix of a finite element model. Two 
paths (as will be discussed in chapter III) will be taken to identify a structural system. 

2) To fine-tune the methods devised in this study to correct the damping matrix 
of the finite element model of a space truss-like structure. Two classes of space trusses 
will be studied, namely a plane three-bay truss subsequently referred to throughout this 
study as a 12-BAR truss, and a three-bay three-dimensional truss subsequently 
referred to throughout this study as a 44— BAR truss similar to that of Space Station 
Freedom. MSC/NASTRAN, a general purpose finite element analysis package, will be 
used to generate the stiffness, mass, and damping matrices. Then, these matrices will be 
used in the system identification methods of this study. In an effort to produce test-like 
results, simulation studies of the finite element model of the trusses will be performed. 
The damping and stiffness coefficients of the two classes of trusses will be varied, and 
the resulting modal properties, which will represent the test modal properties, will be 
used in conjunction with the finite element model of the truss to correct the damping and 
stiffness matrices of the finite element model. 

3) To compare the two methods for correction of the damping and stiffness 
matrices with each other and with the test results for accuracy and robustness. The basis 
for comparison will be the matrices representing the frequency, the eigenvector, the 
eigenvelocity, and the damping coefficients. 

4) To examine the methods for correction of the damping matrix by using 
highly damped truss structures. A highly damped truss structure, as used here, is defined 
as a structure whose real and imaginary portions of the vibration frequency possess the 
same order of magnitude. 

5) To generate the methodology in identification of vibration modes 
(eigenvectors and eigenvelocities) based on the kinetic energy of the test modes in 
question. 

6) To generate the methodology for combining the test modes which possess 
the highest kinetic energy in system identification and correction of the damping matrix 
of the finite element model. 
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CHAPTER II 

LITERATURE REVIEW 


2.1 Introduction 

The idea of using modal testing to validate and verify a finite element model has 
been investigated by other researchers. The results of their work provided a starting 
point for this present study and will be discussed later in this chapter. Of the many 
approaches suggested in earlier work, two approaches that considered the influence of 
dam ping will be reported. Other innovative approaches that ignored the influence of 
damping will also be reviewed in this study. The author will also explore their 
application to model refinement. Overall, the majority of the structural modification 
methods explored by earlier researchers ignore the influence of damping completely. 

In an effort to find out why the influence of damping was not considered in the 
majority of earlier research, the author decided to contact a researcher who consistently 
ignored damping. The most reasonable choice for this consultation was Benjamin Wada 
of the National Aeronautics and Space Administration because he has been involved in 
spacecraft development, modal survey testing, and system identification. The author 
spoke to Mr. Wada on the telephone in July of 1992. His opinion was that the 
measurement of damping coefficients is not practical. Furthermore, when damping is 
introduced to the equation of motion, the complex modes and mode shapes introduce a 
larger complexity in structural modification, and thus the influence of damping is 
neglected. However, the opinions of other researchers have consistently indicated that 
the measured modes in any structure are complex in nature. The complex modes in a 
structure verify the existence of the nonproportional damping. 

In response to the conversation with Mr. Wada, the author proposes a 
subsystem-level test for samples of the truss joints. This test can include a stiffness test 
to measure influence-coefficients in six orthogonal directions, and a modal survey test 
to identify the spatial properties of the joint. The stiffness test will help in the adjustment 
and modification of the stiffness matrix of the finite element model of the truss. The 
modal survey test will aid the measurement of the damping coefficients. If a harmonic 
forcing function is applied to the joint, damping can be evaluated easily by establishing 
resonance and adjusting the input frequency such that the response data is 90° out of 
phase with the applied force (Clough, 1975). When this 90° phase— angle is established, 
the response caused by the displacement vector and the acceleration vector is zero. 
Thus, only the velocity vector or damping force will contribute to the motion of the joint. 
The ratio of maximum force to maximum velocity at this point will represent the 
damping coefficient. The measured damping coefficients in three orthogonal directions 
can be used to build the damping matrix of the finite element of the truss. 
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There are other methods for measuring damping than the one I have proposed. 
These include the matrix method by Hasselman (Hasselman, 1976), the energy method 
of Kana (Kana, 1975), and the damping synthesis method suggested by Soni (Soni, 
1985), who combines the best features of the matrix method and the energy method. 
Since the main focus of this study was on system identification and the correlation of 
damping matrices, no particular effort was devoted to measurement techniques for 
damping coefficients. The assumption was made that the damping coefficients could be 
measured by one of these methods. 

2.2 Previous Research 

Although the majority of the research studies in the area of system identification 
and correlation to date do not consider the influence of damping, some of these methods 
were explored. These will be discussed here since they form the basis upon which this 
present research was built. 

One of the pioneers in the area of system identification is Baruch (Baruch 1, 
1978). The method proposed by Baruch is to minimize the Euclidean distance between 
the analytical and test stiffness matrices, as follows: 

Minimize: 

Si =|| [K] -V 2 ([K t ] - [iSTl)m ~ 1 ' 2 1 (2.1) 

such that: 

Si = = ® 

and 

S 3 = [* r ] - [K t ] t = 0 


The test stiffness matrix can be obtained using the following: 

[K t ] = [K\ + [AK] (2.2) 

where: 

[AK] = - [K](q T )(q T ) T [M] - [M]( ?r )( 9r ) r [l C] 

+ [M] iq T ){q T ) T [K\ (q T )(q T ) T [M] 

+ m(q T )tt 2 T Hq T ) T m 

Wei’s approach is similar to Baruch’s and in fact the set up of all of his equations 
is the same as Baruch’s (Wei, 1980). However, in the process of solving for a test 
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stiffness matrix, Baruch makes an assumption regarding the symmetricity of the product 
of the transpose of the Lagrange multipliers matrix, the mass matrix, and the 
eigenvectors to facilitate the solution. Wie, on the other hand, makes no assumptions, 
and by adding more algebraic equations, obtains the solution for the test stiffness matrix, 
as follows: 

[K t ] = [K]- [K\{q T ){q T ) T \M] - [A/](<Z r )($ r ) r [*] ( 2 - 3 ) 

+ [M] (q T ) (q T ) T [K] {q T ) (q T ) T [M] 

+ [M](^ r )[A 2 r ](? r ) r [M] 

Another approach similar to Baruch’s was proposed by Berman (Berman 2, 
1983). In Berman’s approach, the mass matrix is modified, as follows: 

Minimize: 

*, =11 [M]- 1/2 ([M r ] - [M])[MT 1/2 II <2,4) 

The test mass matrix can be obtained using the following expression: 

[M t ] = [M] + [M](q T nm]~HU] ~ [m])[m] -\q T ) T [M] (2.5) 

where: 

[m] = (q T ) T [M](q T ) 

After updating the mass matrix, Berman takes the same approach as Baruch to 
update the stiffness matrix. However, Berman uses the mass matrix as the weight 
matrix. Berman’s approach is as follows: 

Minimize: 

gl =| im- 1 / 2 (ix T i ~ to[M]- 1/2 II (2 - 6) 

such that: 

§2 = (?r) (^j) — [P 7 J = ® 

g 3 = [K t ] - [K t ] t = 0 


The test stiffness matrix can be obtained using the following expression: 


[K t ] = [K] + {[AK\ + [AK] t ) 
where: 

(2 7 ) 

[AK] = |[M](9 r )((« r ) r [£](4 r ) + ~ {K\{q T )(q T ) T [M] 
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One of the deficiencies associated with Berman’s approach is that the total mass 
of the system may change. Therefore, another equation must be included in the set of 
constraint equations, which forces the summation of the masses of all degrees of 
freedom to be equal to the total mass. Ceasar uses the same approach as Berman, but 
adds two more constraint equations to the system of constraint equations (Ceasar 1, 
1983). These additional constraint equations are an equation for the total mass and an 
equation for the interface loads. Caesar’s approach is more complete than Berman’s. 
However, another deficiency with both Berman’s and Caesar’s methods is that the mass 
matrix and the stiffness matrix are modified separately. If it is believed that both the 
mass matrix and the stiffness matrix are inaccurate, then a multi-objective minimization 
problem may have to be set up to modify all inaccurate matrices at one time because the 
modal data are functions of the mass matrix and the stiffness matrix together. 

Chen uses the theory of matrix perturbation to modify the analytical mass and 
stiffness matrices (Chen 2, 1983). In Chen’s approach, the mass and stiffness matrices 
are expanded in terms of analytical values plus a modification matrix. The advantage of 
this approach is the simplicity of it which enables real time operation during the modal 
survey test. Chen’s approach follows. 


Using the equation of motion the following orthogonality conditions can be obtained: 

(q r) ^[^1 = M (2.8) 

(q T ) T [K](q T ) = [4] ( 2 - 9 ) 

While defining the following perturbation equations as: 

[M T ] = [M] + [AM] 

[K t ] = [K] + [AK] 

(q T ) = (q) + (M) 

\p T ] - \p] + [4 p] 

When substituting the above definitions into orthogonality conditions, and ignoring the 
second order terms, the result is: 

[AM] = [M] (q) (2 [/] - (q) T [M](q T ) - (< q) T [M](q))(q) T [M] (2.10) 

[AK] = [M](q)(2[X 2 ] + 2[A][A r ] - (q) T [K](q T ) ~ (q) T [K](q))(q) T m (2.11) 

Sensitivity of eigenvalues and eigenvectors is another approach that has been 
proposed by several authors to modify the spatial property matrices. Sensitivity 
analysis begins by expressing the equation of motion: 
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( 2 . 12 ) 


([K] -Xj[M])(q) = [ 0 ] 

Let’s suppose that there is a design variable, such as the cross section of a beam, 
and there is no agreement as to how to analytically model this design variable. Thus, the 
accuracy of this design variable is in question. As a result of this uncertainty, the modal 
data appear to be different from those of the analytical model. The first step in the 
sensitivity approach is to determine how sensitive the eigenvalues and eigenvectors are 
to the design variables. Therefore, the partial derivatives of the eigenvalues and the 
eigenvectors with respect to the design variable need to be obtained. Next, we use the 
partial derivatives of the eigenvalues and the eigenvectors as though they were the 
slopes of a set of linear lines which define the relationship of the test modal data with 
respect to the design variable. We then use the test modal data to calculate the value of 
the design variable that satisfies the linear equations. Sutter derives the equation of the 
partial derivatives of the 1 th eigenvalues and eigenvectors, with respect to the/ 11 design 
variable V, using equations (2.8) and (2.12), as follows (Sutter, 1988): 


dX; 


^=w T W ( v- Mq ' >T w {q ‘ } 


rd[M] 


(2.13) 

(2.14) 


A problem arises since the equation representing the partial derivative of the 
eigenvectors, equation (2. 14), is singular. Several methods have been introduced in the 
literature to obtain the solution to the singular equation. Some of these methods are: 

1) The Finite Difference Method where the methodology of perturbation is used to 
determine the old eigenvector using the equation of motion: 


d Ji = ( Qjnew ) (9joli> (2.15) 

Wi AV t 


2) The Modal Method where the partial 
expressed as an expansion series: 

^ 

* *=i 


derivatives of the eigenvectors are 


(2.16) 


where: 




( n \r ( d[K] _ j d[M] 
WfcJ ( dVi A j d y, 

(Xj - X k ) 


■)(«/> 


for k * j 



For k =j , equation (2.8) is differentiated to obtain the following expression: 


2(qj) T [M] 


Hqj ) 

dVi 


+ toy) 


rdfAf] 

dVi 


<f j) - 0 


(2.17) 


When substituting equation (2.16) into equation (2.17), an expression for the 
coefficient Ay* can be obtained, as follows: 


fOT * = > < 2 ' 18 > 

3) The Modified Modal Method where a pseudo static solution of equation (2.14) is 
obtained. This solution is then used as an initial value to approximate the modal 
deformation. The mode acceleration method used in transient dynamic analysis is 
the basis for the modified modal method. The pseudostatic solution is obtained by 
solving equation (2.14), as follows: 


! „„ Hi.) 

When solving equation (2.14), the quantity — has been neglected. 


When the pseudostatic solution, equation (2. 1 9), is added to equation (2. 1 6), the 
following is obtained: 


N 


Hqj) _ d(qj) y 

k = 1 


dK 


( 2 . 20 ) 


where: 

A { j k = coefficients of the modified modal method 

Equation (2. 14) is then substituted into equation (2.20) to obtain expressions for 
Ay*, as follows: 
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for k 


( 2 . 21 ) 





dV; 


2 d[M] 
J dV t 


-)(<?,) 


A'kttj ^k) 



_i( 9 /M( 9 .) 

2 yq J' dV- KH J' 


for k = j 


( 2 . 22 ) 


4) Nelson’s Method where the partial derivative of the eigenvectors is expressed in 
two solutions, namely, the particular solution P, and the complementary solution C 
(Nelson, 1976). Therefore, the partial derivative of the eigenvectors becomes: 


d(qj) 

dVi 


= [P] + ICUqj) 


(2.23) 


Nelson then identifies the component of the eigenvector with the largest 
absolute value and constrains the derivative of that component to zero in order to obtain 
the complementary solution, as follows: 

c = - (q/im [P] - l(qj) T ^r(qj) < 2 - 24 > 


Two of the very few authors who considered damping in their formulations for 
system identification are Ibrahim (Ibrahim 7, 1979) and Camerio (Camerio, 1987). 

Ibrahim introduced the Time Domain Modal Vibration Technique. In this 
method, the space-state form of the equation of motion is set up for an 
n-degree-of-freedom structure, as follows: 

[M](q) + [C](q) + [K](q) = IF] 


Equation (1.5) can be transformed to the following forms: 



[0] 

[/] 

- m~ l m 

[M]" 1 





or: 

X = AX + BF 


(2.25) 


(2.26) 


where: 



and 


X = 




A = 


[ 0 ] 




m 

- IM]~ 1 [C] 


The eigenvalues of A are the roots of the characteristic equation (2.26), thus the 
structural system can be completely characterized by determining these roots. The B 
matrix determines the response of the system when a forcing function is applied to the 
system. Therefore, in a free vibration environment, the modal and spatial properties of 
the structural system can be determined only from the A matrix. Equation (2.26) can be 
written as: 


X = AX 


(2.27) 


When considering a n-degree-of-freedom structural system, the A matrix is 
2/i-by-2/i . The upper half of the A matrix, however, consists of a null matrix and an 
identity matrix. Therefore, the remaining n-by-2/i (2 n 2 ) variables have to be 
determined to fully identify the structural system. 

The 2 n 1 unknown elements of the A matrix can be determined by noting that at 
any instant of time, 4, the relationship between the modal properties in equation (2.27) 
should hold true. Therefore, equation (2.27) can be written as: 



(2.28) 


If the response data, i.e. displacements, velocities, and accelerations, are known 
at 2n 2 time intervals, equation (2.28) can be solved. In order to determine the response 
data, Ibrahim proposes measurement of the response data at 2/i 2 time intervals (Ibrahim 
7, 1979). As a result, the upper half of equation (2.28) can be written as: 


[Xp ^.2, —(2n)] ~~ ^ ^1,-2’ — (2n)J (2.29) 

If all the response data from a modal survey test are measured, equation (2.29) 
can be directly solved for all elements of the lower half of the A matrix. However, to be 
able to measure the response data, all modes of interest should be present when the 
structural system is vibrating freely. 
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In order to measure the response data so that the modes of interest are present 
simultaneously, one of the three methods of excitations outlined below may be applied 
to the structure: 

1) An impulse load may be applied. Impulse load possesses a uniform spectral 
density function over the entire frequency range, and this will provide an ideal 
scenario to measure all modes. However, the impulse load should have enough 
energy to excite all the modes necessary to identify the spatial properties. Impulse 
loads do not possess a large amount of energy. In addition, a true impulse load is 
unattainable. Therefore, for large structures or highly damped structures, impulse 
loading may not be a feasible method of exciting all the modes of interest. 

2) A burst-random or continuous random input load may be applied. The power 
spectral density function of such input loading is continuous. This type of loading 
will excite all modes and provide a scenario where all modes of interests can be 
measured. However, problems may arise since achieving a true Gaussian random 
noise is not possible. Thus, prediction of the future values of the response data may 
not be achieved sufficiently from the measured data. 


3) A sine-sweep or sinewave loading may be applied. The sine-sweep should be 
applied over the frequency range of interest. The time period for this type of 
loading should be kept small enough so that the possibility of highly damped modes 
dying out is eliminated. This type of loading can provide a larger amount of energy 
to the structural system, and may be preferred to impulse loading. 

Another method for system identification was proposed by Camerio (Camerio, 
1987). Camerio combines sensitivity analysis and component mode synthesis 
formulation to identify a structural system. In this method, the linearized stiffness and 
damping coefficients are estimated by minimizing the weighted sum of the squares of 
the difference between experimental and theoretical modal quantities. 

Cameiro sets up the extended, weighted, least-squares objective function in the 
following fashion: 

Jip) = (Ab) r [G b ](Ab) + p(Ap) T [G p ](Ap) (230) 

where: 

Jip) = objective function to be minimized 
ip) — (Pv Pv **** Pq) = truss joint parameters 
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[G 6 ] and [G p ] are the weighting matrices 

fi = confidence factor between experimental and analytical data 

m = (by - (by 

(A P ) = (py - (py 

The indexes, x, c, and a, refer to the measured, corrected, and analytical quantities. 

The scalar quantity in equation (2.30) is set equal to zero, which means that 
there is no global relative confidence between the experimental data and the analytical 
data. Therefore, equation (2.30) can be simplified as: 

J(P ) = (Ab) T [G b ](Ab ) (2.31) 

Equation (2.31) is a standard, weighted, least-squares, objective function, and, 
after the minimization process, a set of linear equations is obtained, as follows: 


(4b) = [S](Ap) 
where: 


dA J J J ••• 

• 

dXyf dpq 

• 

• 

dX ml/ d Pl - 
• 

• 

d *ml/ d P 

» 

dq 1 /dp 1 ... 

dqjdpq 

• 

d< Iml/ d Pl •♦* 

• 

&lml/ d P 


(2.32) 


(2.33) 


The solution of equation (2.33) can be obtained through iteration; for the it* 
step, the solution will be: 

(V*>) = lS^] + (4b ik) ) (2.34) 

where: 

[$(*)] + = Moore-Penrose generalized inverse obtained by singular value 
decomposition of the matrix in question 



The parameters of equation (2.34) are corrected as: 


0 

(p)<* +1 > = (p) (k) + (Ab) (k) 


(2.35) 


Then, the analytical modal data are recalculated and the procedure is repeated 

until: 


I4>(t)|£‘ |J> W I (2.36) 

If numerical calculations of the sensitivity matrix are desired by means of a 
finite difference method, then all the derivatives of the eigenvalues and the eigenvectors 
need to be determined by solving an eigenvalue problem at each nominal point. This 
type of process is not only time-consuming, but it also introduces round-off and 
truncation errors into the future analyses. Camiero uses Nelson’s methodology to arrive 
at the equations for the derivatives of the eigenvalues and the eigenvectors with respect 
to the joint parameters. The derivative equations can then be used in equation (2.34), 
and this process eliminates round-off and truncation errors and saves computer usage 
time. 

23 Concluding Remarks 

Ibrahim’s methodology is indeed innovative and powerful. One weakness of 
this method however, is that if the modes of interest are sufficiently far apart, it may be 
an impossible task to excite the structure so that all modes of interest appear in the 
response data simultaneously. As a result, the response data required to solve equation 
(2.29) may be unattainable. 

The system identification methodology proposed by Camiero is also powerful. 
However, two weaknesses can be identified in Camiero’s methodology. 

1) In an effort to identify the structural system, the analyst should have knowledge 
of how the structural system behaves under loading, and what the important 
parameters (such as a beam property, etc.) are, and whether these properties 
influence the important modes of the structure. Based on this knowledge, the 
analyst is then able to set up the sensitivity matrix. If the finite element model of the 
structural system in question is composed of several different properties, then it 
would be a very tedious and time-consuming task for the analyst to search out the 
important parameters that influence the important modes. 

2) To eliminate the need for learning the dynamics of the structural system through 
trial and error (e.g. varying joint parameters to determine variations in modes and 
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mode shape) Camerio suggests another method. This method deals with 
determination of the locations of the differences between the finite element model 
and the experimental results through automatic localization methods such as the 
methodology developed by Zhang (Zhang, 1987). However, according to Caesar in 
“Update and Identification of Dynamic Mathematical Models,” based on 
experience, the refinement of a finite element model cannot be handled in an 
automatic manner, since the convergence behavior is very sensitive. In other 
words, if an incomplete or irrelevant set of system values is used in finite element 
model refinement, convergence to wrong values can occur. 

As a result of studying the work of other researchers, the author formulated two 
methods for system identification of structural systems possessing nonproportional 
damping to be studied. The two methods in this study will not be test-dependent, will 
not require prior knowledge of the structure under study, and will not use localization 
techniques which may force the problem to converge to wrong values. 
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CHAPTER HI 

STRUCTURAL FORMULATION AND METHODOLOGY 


3.1 Introduction 

This chapter contains the derivation of the equations involved in system 
identification for a structural system possessing nonproportional damping. Two 
methods are presented to modify the analytical matrices. Method 1 modifies the 
analytical damping matrix, and method 2 modifies the analytical damping matrix and 
the analytical stiffness matrix. 

3 J2 Equation of Motion with Nonproportional Damping 

The linear equation of motion of an n— degree— of— freedom system in matrix 
form expressed in generalized coordinates q\, £ 2 *— > 4n is* 

m(q) + ic](q) + ™<?) = in ( 31 > 

where: 

(q) = the modal eigenvector 
( 1 q ) = the modal eigenvelocity 
(q) = the modal eigenacceleration 

For a structural system with nonproportional damping each component of 
eigenvector (q) is distinguished not only by amplitude but also by phase; thus, two 
pieces of information are required to determine each one. It follows that 2n equations 
are required to determine all components of an n— degree— of— freedom system in each 
mode. Therefore, to the n equation of motion (3.1), must be added another equation 
giving a system of 2n equations to be solved in the case of nonproportional damping. To 
overcome this stumbling block the missing n additional equations are added in the 
following fashion (Hurty, 1965): 

[M](q) ~ [M](q) = [ 0 ] ( 3 . 2 ) 


Equations (3.1) and (3.2) are combined to give the following matrix equations 
of the order 2 n : 


to] : [M] 

1 

l(q)\ 

I 1 1 

[M] : 

[0] 

[M] \ [C] 

\(q)J 

to] ; 

m 




(3.3) 
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Equation (3.3) can be written as: 


[A](y) + [B](y) = (Y) 


where: 


r , 

— 


to] : 

m 

I 4 ) = 

. . • L 

t 

— 

[M]; 

[C] 


- 

- 


r* 

, 

IB] = 

- [M] 

: to] 

[0] 


: m 


(y) = 
( X ) = 



(3.4) 


Matrices [A] and [B] are both of the order of 2n, real, and symmetric. 

33 Solution of the Homogeneous Equation 

The homogeneous form of equation (3.4) is obtained by setting the equation 
equal to zero. 

W](y) - [B](y) = [0] (3.5) 


In an effort to solve equation (3.5), the [B] matrix should be checked for 
singularity. In general, the [B] matrix will have an inverse when the stiffness matrix [AH 
is nonsingular. If the stiffness matrix is singular which will be the case if the system is 
unconstrained with respect to one or more rigid-body displacements, then such 
rigid-body modes must be removed from the system. For the test problems in this study 
there will be no rigid-body modes. The solutions of linear equations such as equation 
(3.5) are found when the displacements and velocities have the form eV. X is the 
eigenvalue of equation (3.5). 

The orthogonality condition of the normal modes with respect to the stiffness 
and the mass matrices is the base of this method. For the [A] matrix, the following 
orthogonality condition exists. 
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(y) r M](y) = [a] 


(3.6) 

(3.7) 


( y ) r [*]00 = M 

where: 

[a] and [£] = diagonal complex matrices as a result of orthogonality conditions 
note that: 


0 ) = 



(q) = p(q) and te) = (t) 


'(q) 

f (qj) 

Sqh 


Equations (3.6), and (3.7) can be rewritten as: 
J 

[0] : [Ad | l(q)\ 

= la] 


to] : m 

. . . L . . . 

[M]\ [C] 


J \ 


- [M] ; 

[0] 

to] ; 

IK] 


(q)j 
(q) ) 


= [ b ] 


(3.8) 


(3.9) 


Equations (3.8) and (3.9) can be simplified in the following fashion: 


(3.10) 

(3.11) 


(q) T m(q) + (q) T lM](q) + (q) T [C](q) = [«1 
- (q) T lM](q) + (q) T [K](q) = lb] 

Another convenient way of expressing equation (3.5) is to invert the B matrix 
and premultiply it by the A matrix, as follows: 

- lB]~ l \A](y) = A(y) < 312 ) 

where: 

- IB]~ 1 [A] = 


[0] 

m 

- m-Hm 

- [jK] -1 [C] 
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In this case the orthogonality condition can be expressed as: 


(y) r (- [2f] _1 M])(y) = [a] (3.13) 

And the following equation can be derived: 

±(?) + [K\-Hm(q) + [K]-HC](q) = 0 (3.14) 


Equation (3.14) will be the active constraint for method 2. 

In a practical structure, which consists of n degrees of freedom, only a few 
modes and frequencies (m modes and frequencies) are measured. The reasons for this 
are that higher modes require high levels of energy due to their shorter wave length, and 
that exciting and measuring such modes is not practical. Equations (3.10) and (3.11) 
become m-by-m matrices when the practicality of measuring eigenvalues and 
eigenvectors in a modal survey test are considered. If it was possible to measure all n 
modes and frequencies of an n-degree-of-freedom structure, (q) would become an 
n-by-n matrix, and it would be possible to invert both (q) T and (q) on the left side of 
equations (3.10), and (3.11) and solve for [C] directly. However, since (q) is an n-by-m 
matrix, where m is less than n, there exists an infinite number of inverses for ( q ). In an 
effort to determine the minimum [C] which satisfies the requirement of equations (3.10) 
and (3.11), a minimization problem is set up. The Gauss method is used to minimize the 
mean square error of [C] and [Cy] matrices. The subscript T symbolizes the measured 
variables. However, in order to make the objective function of the minimization 
problem more robust the author decided to make the mean square error the weighted 
function of [M] or [Jt], 

3.4 Formulation for Structural Modification 

Two methods were devised in this study to modify the original finite element 
model in order to improve the correlation between experimental data and analytical 
results. Both methods focus on correction of the nonproportional damping. As was 
discussed previously, due to the limited number of modes and frequencies measured in a 
modal survey test, and the fact that the eigenvector matrix is not square, the test damping 
matrix and the test stiffness matrix cannot be obtained from the orthogonality 
conditions. As a result, a second set of equations is introduced that represents the 
difference between the test properties and the analytical properties. This second set of 
equations can be treated like the objective functions in a minimization problem. The 
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orthogonality conditions, then, can be treated as the constraint of the minimization 
problem. Therefore, in an effort to obtain a set of test properties, the differences 
between the test properties and the analytical properties are minimized such that the 
orthogonality conditions are satisfied at all times. 

In method 1, the assumption is made that the analytical mass and stiffness 
matrices are accurate. Therefore, only the damping matrix will have to be correlated. 
Method 1 will also be used to identify structural systems with inaccuracies in both the 
damping and the stiffness matrices. Method 1 will be a single-objective minimization 
problem with the orthogonality condition as its one constraint. 

In method 2, the assumption is made that only the analytical mass matrix is 
accurate. Therefore, the stiffness and damping matrices will have to be correlated 
against the test results. Method 2 is a multi-objective minimization problem with one 
constraint derived from the condensed form of the equation of motion. 

3.4.1 Equations and Derivation for Method 1 

In method 1 , it is assumed that the mass and stiffness matrices are accurate, and 
that only the damping matrix has to be modified. The minimization problem to solve 
equation (3.10) becomes: 

Minimize: 

S, = §||[(V]«C r ] - [C])[N]| <315) 

such that: 

g 2 = (q T ) T [M]{q T ) + («r) r M(«r> + (4Tr) r [ c rH4r) “ M = 0 (316) 

where the [TV] matrix is the weighting matrix. 


Equation (3.15) is the objective function of the minimization problem, and it 
represents the difference between the damping matrix from the analytical finite element 


model and the one from the test results. The subscript, T, represents the test properties. 
Equation (3. 16) is the constraint equation for the minimization problem and it forces the 
orthogonality condition as derived in equation (3.10) to be satisfied. 


In a structural system the sum of all forces and moments acting on the structure, 
including all inertia loads resulting from the mass and the mass moment of inertia, 
should equal zero. This extension of D’Alembert’s principle results in symmetric 
stiffness and damping matrices. Therefore, another constraint which would have been 
appropriate to add to the above minimization problem was the symmetry condition 
imposed on the damping matrix, as follows: 
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&3 ~ Cj — 0 


(3.17) 


However, the author decided to solve equations (3.15) and (3.16) without 
considering equation (3.17). If the resulting equation for Cj is not symmetric, then 
equation (3.17) will be added to the minimization problem. 

In an effort to solve equations (3.15) and (3.16), Lagrange multipliers were 
used. The advantage of using Lagrange multipliers is that the constraint equation is 
combined with the objective function to form a single equation, as follows: 


G= gl + 2Ag 2 (3.18) 

where: 

G = new matrix to be optimized. 

A = n by n matrix of Lagrange multipliers. 


In order to minimize G, the first derivative of equation (3.18) with respect to the 
unknown, Cj, will be obtained and set equal to zero, as follows: 


dG _ for 
dC T dC r 


+ 2A m = ° 


(3.19) 


The partial derivatives of gi and g 2 with respect to Cj will be evaluated 
separately and then summed up to fulfill the requirement of equation (3.19). 

Using Einstein’s rule of summation, equation (3.15) can be rewritten as: 


#1 ~ 2 n k^ C T ¥ C lp) n P9 n kr( C T n c rs) n sq 

where: 


n = m 
c=[C] 


(3.20) 
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The partial derivative of equation (3.20) with respect to c T „ 

is the following: 

dfji = n uPkr( c T n “ 

(3.21) 

The matrix form of equation (3.21) is: 


- [W] r iW]([C T ] - [C])[JV][JV] T 

C/C/ y 

(3.22) 

As will be discussed in chapter IV, based on the work by Baruch, [AT] was 
selected to be [M]( 1 / 2 ) (Baruch 2, 1978). Thus, equation (3.22) can be rewritten as: 

- [Mr'UCYl - [C])[M] -1 

(3.23) 

The next step is to determine the partial derivative of 
C T with: 

g 2 with respect to 

sc - sc 

(3.24) 

Again, using Einestien’s rule of summation, equation (3.24) can be rewritten as 

dC T dC T (2Ak P qT * < V r * ) 

(3.25) 

or: 


ec T (2 y V r « q O 

(3.26) 

The terms in equation (3.26) can be rearranged to obtain the following result: 

- Mq T )W T (q T ) T 

(3.27) 
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Equations (3.23) and (3.27) should be added and set equal to zero to fulfill the 
optimization requirements set by equation (3.19), as follows: 


^ = [An _1 (IC r ] - [C])[M] - 1 + 2(q T )[A] T (q T ) T = 0 


(3.28) 


There are two unknowns in equation (3.28), namely [C T \ and, [ Ayf 


Equation (3.28) provides one optimum point for the difference between the 
damping matrices. However, the necessary and sufficient condition for a global 
minimum in equation (3.28) is that the second partial derivative with respect to the test 
damping matrix be positive definite. This second partial derivative is equal to the mass 
matrix to the power of -2, and since the mass matrix is positive definite, the optimum 
point is a global minimum. The strategy for obtaining the test damping matrix would be 
first to obtain an expression for the Lagrange multipliers matrix and to use this matrix to 
solve for the damping matrix. 


Solving equation (3.28) for [C r ] by pre- and post-multiplying each side 
of the equation by [C r ] and [C T ] will result in the following equation: 


(q j) Cy] {q j-) — (q j) T [C] (q ■j') 

- 2(q T ) T [M](qT)\A] T (q T nm(qT) T 


(3.29) 


Substituting equation (3.29) into equation (3.10), and solving for \Aj\ T 
will result in the following equation: 

\A T ] T 4 (( ^) r miq T ))~ l (330) 

+ (?r) r [C](93r) ““ a j) 

Equation (3.30) represents the transpose of the Lagrange multipliers. The 
substitution of this equation back into equation (3.29) will result in an equation that is a 
function of the test damping matrix, as follows: 
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[C r ] = [C] - [M] (q T )((qj) T [M] (q T )) ~ 1 


(3.31) 


dq T ) T m(q T ) + (q T ) T lM(q T ) + (fr) r ICl(«r) “ a r) 


The only unknown in equation (3.31) is [a r ] . This unknown can 
be obtained using the orthogonality conditions, equations (3.10) and (3.11) 

Using these orthogonality conditions it can be easily shown that: 

[if] = Pj\Pj\ (3.32) 

Since all the terms in equation (3.11) are given, this equation will be 
used to determine [a r ] Substitution of equation (3.32) into equation (3. 11), and 
solving for [<*j] results in: 

[a T ] = - (i q T )m(q T » < 3 - 33 ) 


Substitution of [a T ] into equation (3.30) results in a single equation 
for the test damping matrix with all the terms given from the test results and the 
analytical results, as follows: 


[C T ] = [C] - [M]( 9r )((^ r ) r [M]( <?r ))- 1 

((< q T ) r m{q T ) + {q T ) r m(q T ) + <f,) r [C]<ff r ) ~ 
^((9r) r ra(^r) " (<?r) r [W?r)» 

{{q T ) T \.m{q T ))~Hq T ) T [m 


We can now conclude by studying equation (3.34) that since all the matrix 
products are diagonal and symmetric, their algebraic summation will also be symmetric. 
Therefore, there is no need to add equation (3.17) as a second constraint to the 
optimization problem. 


- 25 - 



3.4.2 Equations and Derivation for Method 2 

In method 2 the basic assumption is that there are inherent inaccuracies in both 
the stiffness matrix and the damping matrix. That is, there are two variables to be 
determined, namely, the stiffness and the damping. Therefore, the minimization 
problem is set up so that the values of both the stiffness coefficients and the damping 
coefficients are minimized in one united objective function. The constraint for this type 
of problem should have the influence of all spatial properties. Because of this fact, a 
condensed form of the equation of motion as derived in equation (3.14), rather than the 
orthogonality conditions as derived in equations (3.10) and (3.1 1), will be used for the 
constraint equation. The advantage of having one constraint equation instead of two is 
that there is one less Lagrange multipliers matrix to be calculated. The minimization 
problem is the following: 


Minimize: 

*i = \\\ [iV]([C r ] - [C])[N] || + \\\ [T\(IK t ] - [JC])m II (335) 

such that: 

g 2 = (? r ) r [M](*r) + (?r) r [*rK^(?r) + (? r ) Writer) = 0 (336) 

where the [iV] and [7] matrices are the weighting matrices. 


In an effort to solve the aforementioned minimization problems Lagrange 
multipliers will be used to combine the constrained equation with the objective function. 
This procedure is similar to the procedure used in method 1. An equation similar to 
equation (3.18) results from combining equations (3.35) and (3.36), as follows: 

G= gl + 2Ag 2 (3.18) 


In order to minimize G, the first partial derivative of equation (3.18) with 
respect to the unknowns Kj, and Cj will be obtained and set equal to zero, as follows: 
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(3.36) 


dG — %»i i 2 A = 0 
dK T dK T dK T 


+ 2/1-^- = o 


dC T dC 


dCi 


(3.37) 


Similar to derivation of the partial derivative of gi with respect to Cj in equa- 
tion (3.23), the derivation of the partial derivative ofgj with respect to Kt and Cj results 
in: 

[M]-‘([ir r ] - [*])[«]■' 

and 

[M]- 2 ([C r ] - [C])[M] ~ 2 

The weighting matrix for the partial derivative of g\ with respect to Cj was 
chosen to be [M]~ 2 which is different from the weighting matrix used in method 1 (as 
will be explained in chapter IV). The weighting matrix for the partial derivative ofgi 
with respect to Kj was unchanged. 

Derivation of the partial derivative of g 2 with respect to Kj and Cj (which is 
similar to the derivation of the partial derivative of gt with respect to Cj in equation 
(3.27)), results in: 

H - V) r 

& = 2(q T )m T {q T ) T < 34 » 


(3.38) 

(3.39) 


Substitution of equations (3.38) and (3.40) into equation (3.36) results in: 

= [M] ~HlK T ] ~ [K])[M\ - 1 + 2{j^q T )\A] T {q T ) T = 0 (3 42) 

Substitution of equations (3.39) and (3.41) into equation (3.37) results in: 
= [M] ~HlC T ] 1 - [C])[M] “ 2 + 2 (q T )\A] T (q T ) T = 0 (3.43) 
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Equations (3.42) and (3.43) provide one optimum point for the differences 
between the damping matrices and stiffness matrices. However, the necessary and 
sufficient condition for a global minimum in these equations is that the second partial 
derivative with respect to the test damping and test stiffness matrices be positive 
definite. The second partial derivatives are equal to the mass matrix to the power of -2 
and -4, and since the mass matrix is positive definite, the optimum point is a global 
minimum. Equations (3.42) and (3.43) comprise a system of two equations which is 
solved simultaneously to obtain expressions for Kj, and Cj- However, the test stiffness 
matrix and the test damping matrix are not the only unknowns in the equations. The 
Lagrange multipliers matrix is also an unknown matrix which will have to be either 
eliminated or determined. 

Solving equation (3.42) for Kj will result in the following: 

[K t ] = [K\- 2[M](i< ?r )(4] r ( ?r ) r [M] (3.44) 

Equation (3. 14) is used one more time here to eliminate the test stiffness matrix 
in equation (3.44), and to obtain a solution for the Lagrange multipliers in terms of the 
test damping matrix. 

\A t V 4 (( «r) r [^(^r)) _1 (3.45) 

((«r) r ™^r) + {q T ) T m(q T ) + (*r) Writer)) 


The next step is to solve equation (3.43) for Cj. 


[C T ] = [C] - 2[M] 2 (q T )\A] T (q T ) T m 2 


(3.46) 


Substituting equation (3.45) into equation (3.46) results in an equation with 
only one unknown, Cj'. 
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(3.47) 


[C T ] = [C] - [M] 2 (q T )((q T ) T [M](^q T ))~ 1 

((q T ) T [K\(±q T ) + (, l T ) T m(q T ) + <*r> r [C r ]<«r» 

((9r) r [M](^ r ))- 1 ( <?r ) T [M] 2 


The test damping matrix appears on both sides of equation (3.47). Therefore, 
the solution of this equation, which will be explained in chapter IV, is not a 
straightforward process. However, this equation contains only one unknown, Cj- 

The result of substituting equation (3.45) into equation (3.44) is: 

[Kj\ = [K\ - m (±- T q T ){{q T ) T \M] (±q T )) ~ 1 (3.48) 

«q T ) T [m±q T ) + (<7r) r M(<7r) + (q T ) T [C T Uq T )) 

((9r) r [M](^r)) ~ l (q T ) T [M] 


The process for obtaining the test stiffness matrix and the test damping matrix is 
to first obtain a solution for Cj from equation (3.47), and then to substitute this matrix 
into equation (3.48) to obtain a solution for Kj. 

3.5 Concluding Remarks 

The advantages associated with the two methods suggested in this study are: 

1) Important modes that will be used for system identification can be measured in 
various types of modal survey tests, and not all modes have to appear in a single test 
run, which the Ibrahim methodology requires (Ibrahim 7, 1979). 

2) Prior knowledge of the structural system, which the Camerio methodology 
requires (Camerio, 1987), will not be needed to identify the structural system. 

3) Localization techniques will not be needed in order to identify the structural 
system, which the Camerio methodology also requires. 

4) The mass matrix, which is usually the most accurate matrix of the three spatial 
property matrices, does not have to be modified as is done in Berman’s method 
(Berman 2, 1983). 
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CHAPTER IV 

RESULTS AND DISCUSSIONS 


4.1 Introduction 

In this chapter an overview of the methods employed to solve the equations 
derived in chapter IE via a FORTRAN program is given. Also, two classes of structures 
will be modeled and the results will be fully discussed. 

The structures to be studied in this chapter are a 3-bay plane truss and a 3-bay 
space truss. Both trusses are supported at one end, which means that they are 
cantilevered. As such they do not possess rigid body motion. The remaining degrees of 
freedom (DOF) of the plane truss can only translate in two translational orthogonal 
directions in the plane of the truss. The remaining DOF of the space truss can only 
translate in three orthogonal directions, and the rotational DOF are constrained. 

Since in this study no actual structure with measured modal data is used, the 
FORTRAN program has been designed to perform system identification and to provide 
simulated modal data. Therefore, we will use the modal data from the simulation 
portion of the FORTRAN program rather than sets of modal data from an actual modal 
survey test. 

Although the formulations of method 1 of this study modify only the damping 
matrix, this method will also be applied to the structures whose stiffness matrix contains 
inherent inaccuracies. In fact, the same structures will be used for both methods. The 
same structures will be used in order to examine method 1 for structures with 
inaccuracies in both the damping matrix and the stiffness matrix, and to be able to 
compare the results of method 1 with those of method 2. It would be an impossible task 
to compare the effectiveness of methods 1 and 2 without comparing their respective 
numerical results. 

In order to examine the effectiveness of each method and each computer run, 
two basic sets of data will be provided and tabulated, namely the eigenvalues and the 
eigen velocities. The reason for providing the eigen velocities as opposed to 
eigenvectors is that eigen velocities provide information on both the eigenvalues and the 
eigenvectors at the same time because the eigenvelocities are the product of the 
eigenvalues and the eigenvectors. Therefore, the method selected for this study and the 
FORTRAN program to measure the closeness between the eigenvelocities of the test 
model and those of the analytical model is the most stringent criterion possible. 

The numerical results of the system identification and correlation for the 3-bay 
plane and space trusses will be presented through figures and tables. A discussion of the 
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results, mainly the eigenvalues and eigenvelocities resulting from the modified 
properties, will be presented for each truss. 

4 J2 Description of the FORTRAN Program 

A 5,400-line FORTRAN program was written for this study to provide the 
simulated test modal data, and to perform system identification and correlation. The 
subroutines for complex eigenvalue and eigenvector extractions were obtained from 
LAPACK and linked to the main FORTRAN program. LAPACK is a national library of 
mathematical subroutines. The first portion of this program contains PARAMETER 
cards, and flags cards that control the functions of the program. The second portion of 
the program reads and writes the modal data and spatial data. The A and B matrices are 
formed by the third portion of the program. The fourth portion of the program contains 
the subroutine calls for eigenvalue and eigenvector extraction. The solutions to the 
equations for various methods explored in chapter III are contained in the remainder of 
the program. 

The FORTRAN program contains two options for reading the analytical spatial 
properties of a structural system. It can read the elements of the mass matrix, the 
stiffness matrix, and the damping matrix row by row. Alternatively, it can read the data 
from an OUTPUT4 file format generated by an MSC/NASTRAN finite element 
program. The OUTPUT4 file is generated by including the DATA MATRIX 
ABSTRACTION (DMAP) in a MSC/NASTRAN input file. Both options for reading 
data can be activated via flag IREAD. 

As previously mentioned, a simulation program was included as part of this 
FORTRAN program, in which the test modal properties are generated and saved for the 
system identification portion of the program. The simulation portion is activated 
through the HNPUT flag. If the simulation portion of the program is not activated, then 
the modal properties of the test model will be read for system identification and 
correlation activities. 

Three options for eigenvalue and eigenvector extraction are available in this 
FORTRAN program. For the structural models that do not possess rigid-body motion, 
the CG subroutine is used. Prior to using the CG subroutine, the B matrix is inverted and 
premultiplied by the A matrix. This matrix product is then used together with the CG 
subroutine to solve for the complex eigenvalues and eigenvectors. However, if the 
structure contains rigid-body motion, then the B matrix is not invertable, since the 
stiffness matrix is singular. Two subroutines have been provided for such occasions. 
The T 7TfRS and LZIT subroutines by Kaufman closely resemble the QZ method, in 
which the A matrix is reduced to an upper Hessenberg form, and the B matrix is reduced 
to an upper triangular form (Kaufman 1, 1974). The advantage of using LZHES and 
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LZIT is that elementary transformations are used to reduce the A matrix and the B matrix 
as opposed to orthogonal transformation. This choice of transformations is more 
efficient when either the A matrix or the B matrix is complex. However, for large 
problems, the LZHES and LZIT subroutines are not stable. For structures possessing 
rigid body motion, a second set of subroutines is provided, CQZHES, CQZVAL, and 
CQZVEC. These subroutines are based on the QZ method where the A matrix and the B 
matrix are reduced to an upper Hessenberg matrix and the upper triangular matrix using 
orthogonal transformations. It is best to use these three subroutines for larger structures . 
For the classes of structures in this study, the CG subroutine was used since the 
transformations in the other subroutines were too time-consuming, and the 
eigenvectors were not as accurate. 

The next step in the FORTRAN program is to store the modal properties on tape 
if the simulation portion of the program is activated, or to continue with correlation 
activity. When comparing the measured modal properties, specifically the eigenvectors 
and eigenvelocities from a modal survey test with those from a finite element model, 
there should be common ground for this comparison. In this FORTRAN program the 
maximum value of the real part of the eigenvelocities is the common ground. 

Prior to system identification activity, the eigenvelocities and eigenvectors 
were normalized based on the total kinetic energy of the structural system. The idea of 
this normalization is that as each complex mode is excited, the kinetic energy of the 
system will vary. The amount of kinetic energy of the lower modes is usually higher, 
since a larger portion of the structure, or more mass, is in motion. The normalization 
process was carried out by determining the kinetic energy associated with each mode 
while using the following equation: 

T„ = \(q n ) T {M\(q n ) (4.1) 

where: 

T n = kinetic energy associated with mode n 


The kinetic energy values of each mode are then summed up and the net value 
represents the total kinetic energy of the structural system. The total kinetic energy of 
the system is then set equal to 100 percent, and the individual contribution (kinetic 
energy) of each mode is obtained based on the total energy. This process is performed by 
dividing the kinetic energy of each mode by the total kinetic energy times 100 percent. 
The kinetic energy values associated with a structure are output so that the analysts can 
visually examine these values and determine which modes are important for correlation 
activity. Obviously, modes possessing lower kinetic energy values may not be as 
important as the modes possessing higher kinetic energy values. The reason for this is 
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that modes that possess lower kinetic energy values have short wavelengths and are 
more difficult to produce in a modal survey test. In addition, the modes possessing low 
kinetic energy are not usually load-producing modes at supporting points of the 
structure. It should be emphasized here that the benefit of having well-correlated 
stiffness and damping matrices is so that they can be used later to generate forces and 
moments and compare these values with the design loads. Therefore, the modes that do 
not contribute or have a very small contribution based on their kinetic energy values can 
be ignored. 

Table I and figure 1 represent the kinetic energy values associated with modes 
one through five of the 12-BAR truss. As can be observed, the kinetic energy values for 
a structural system with nonproportional damping are complex. Therefore, both real 
and imaginary parts of the kinetic energy values have been shown. In figure 1, the 
kinetic energy associated with modes two through four are the highest, and for higher 
modes, this value diminis hes. Also it should be noted that modes two through four 
posses approximately the same amount of kinetic energy. The reason for this, which will 
be explored in the modal deformation plots later in this paper, is that the shapes of these 
modes and the respective eigenvectors are close. We can conclude that it is important to 
include one of the modes between one and four in the set of modes for correlation 
activity. 


Next, several solutions were included in the FORTRAN program for the 
purposes of modifying one or two spatial property matrices of the structural system, and 
to determine the new or correlated eigensystem. They are the Direct Correction, the 
Stiffness Correction, the Damping Correction, and the Damping-Stiffness Correction. 
The Direct Correction method is used when the number of modes is the same as the 
number of DOF. In the Direct Correction method, equation (3.10) is employed to 
determine the test matrix, Cj. It should be noted that in order for the Direct Correction 
method to work, the eigenvector matrix should be square or it cannot be inverted to 
proceed with the solution. 

The method of Stiffness Correction was tailored based on Sidhu’s methodology 
(Sidhu, 1984), as follows: 


[E] = [*]([*] - 1 - [K* t \ ~ l )[K] (4.2) 

where: 

[E\ = Error matrix, error between analytical and test stiffness matrix 
[**n = Pseudo test stiffness matrix 
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The pseudo test stiffness matrix is obtained by solving equation (3. 1 1) as if the 
system of equations is underdetermined, as follows: 

[«*] = (q T )(lb T ] + (q T ) T m(q T MlT> T («) 


The success of the Stiffness Correction method was extremely limited for 
structural systems with nonproportional damping matrices, and at times the results 
obtained appeared absurd. The reason for this is that the pseudo test stiffness matrix, as 
expressed in equation (4.3), is one of the infinite solutions, and this particular solution 
may be mathematically correct, but not physically correct. Therefore, no results using 
Sidhu’s methodology have been included here. The theory behind including Sidhu’s 
method was to first locate errors in the damping and/or stiffness matrices so that they 
could be corrected. 

The Damping Correction method was tailored by using method 1 discussed in 
chapter III and equation (3.34). Three attempts are made in this correction method to 
obtain the test spatial properties. In the first attempt, the test damping matrix that uses 
equation (3.34) is calculated and used to obtain the modal properties. In the second 
attempt, the imaginary portion of the test damping matrix using equation (3.34) is set 
equal to zero, and the modal properties are recalculated. In the third attempt, the 
weighting matrix is changed to a stiffness matrix, and the problem is repeated. 

The Stiffness-Damping Correction uses method 2, discussed in chapter III, and 
equations (3.47) and (3.48). As can be observed in equation (3.47), the unknown, Cj y 
appears on both sides of the equation. Several options for solving the test damping 
matrix and the test stiffness matrix were followed: 

Option 1: The damping matrix is determined with equation (3.47) through an 
iterative process. Since the test damping matrix is unknown, the analytical 
damping matrix is assumed for the initial value. This first assumed value is then 
substituted into the right side of equation (3.47), and a test damping matrix is 
calculated. The new test damping matrix is substituted into the right side of 
equation (3.47), and a second test damping matrix is calculated. This process is 
repeated until some arbitrary convergence criterion is met. When the convergence 
criterion, based upon the test damping matrix, is met, then equation (3.48) is 
employed to determine the test stiffness matrix. The test modal properties are 
calculated by using the test damping matrix and the test stiffness matrix. The 
success of this option depends upon how close the test damping matrix and 
analytical damping matrices are. Several attempts were made to use different 
weighting matrices in equation (3.47), but these attempts did not change the success 
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of this iterative process, which depends upon the closeness of the test damping 
matrix and the analytical damping matrix. For large problems, the iterative process 
as described here totally failed. For small structural systems with small differences 
between the test and analytical damping matrices, such as a four DOF structural 
system, this iterative process succeeded. 

Option 2: The damping matrix is determined by using equation (3.47) through a 
random search. This random search consists of assuming values for the elements of 
the analytical damping matrix, and solving equation (3.48) with these values. It 
should be noted that the assumed values for the test damping matrix were within 
+/-10 percent of the analytical matrix. The success of the random search depends 
upon the assumed values, and at times even for a small structural system, such as a 
four DOF structure, the process does not converge. 

Option 3: The damping matrix is determined by using equation (3.47) through a 
systematic search. The systematic search consists of setting the test matrix equal to 
the analytical matrix and solving for the test stiffness matrix using equation (3.48) 
which also solves the eigensystem. If the new eigenvalues and the orthogonality 
matrices as expressed in equations (3.10) and (3.11) are within some arbitrary 
tolerance of the measured eigenvalues and the measured orthogonality matrices, 
then a solution is obtained. If not, the elements of the damping matrix are increased 
or decreased in a systematic fashion (through DO loops) and the above process is 
repeated until a solution is obtained. The increments or decrements are usually a 
small percentage of each element of the damping matrix, approximately 1 0 percent. 
The systematic search is extremely successful, and in most cases after two to five 
iterations, an acceptable solution is obtained. 

Of the three options listed above, option three was chosen for this study due to 
its repeated success. However, in the process of working with different structures there 
were some isolated cases where no convergence was attained. Because the solution to 
option 3 is through an iterative process, at times there are no solutions. 

Since the success of the solution to method 2 of this study is through an iterative 
process, convergence criteria had to be devised. The convergence criteria are 
determined in two steps. Step 1 compares the calculated eigenvalues with those of the 
test eigenvalues. If the eigenvalues are within +/-0.1 Hz, then the FORTRAN program 
proceeds with step 2. If not, the FORTRAN program varies the coefficients of the 
damping matrix and solves for another set of eigenvalues until the +/-0. 1 Hz tolerance 
criterion is met. Step 2 compares the calculated kinetic energy values with those of the 
analytical model. The basis of comparison is less than a 1 percent difference between 
the respective kinetic energy values. If the criterion in step 2 is met, then the program 
outputs the solution. The reason for using the kinetic energy values rather than the 
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eigenvelocities is that the size of the kinetic eneigy matrix (m-by-m) is smaller than the 
size of the eigenvelocity matrix. Also, the kinetic eneigy matrix is a diagonal matrix 
which contains m terms, but the eigenvelocity matrix has a larger set of terms, m-by-n 
terms to be exact. 

Other aspects of the FORTRAN program, for example the subroutines for 
matrix operations, matrix inversion, output, and eigensystem solutions, will not be 
discussed here. They are standard subroutines which are used in most program codes. 
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TABLE I 

KINETIC ENERGY OF THE 12-BAR TRUSS 



Real 

Imaginary 



Column 1 

% 

E 

z> 

o 

O 

Column 3 

toHIIIM 

Column 5 

BSSBuSB 

CM 

C 

£ 

Z3 

o 

O 

Column 3 


Column 5 

ROW 1 

1.15E-01 

2.19E-05 

-4.31 E-06 

2.03E-06 

-1.19E-06 

7.12E-04 

-3.03E-04 

8.47E-05 

2.59E-05 

1.62E-05 

Row 2 

2.19E-05 

2.64E-01 

-1.33E-05 

1.03E-06 

-2.47E-06 

-3.03E-04 

3.07E-02 

4.04E-04 

-1.39E-05 

1.72E-05 

Row 3 

-4.31 E-06 

-1.33E-05 

2.88E-01 

1.42E-05 

-5.67E-07 

8.47E-05 

4.04E-04 

-1.57E-02 

2.03E-04 

1.71E-05 

Row 4 

2.03E-06 

1.03E-06 

1.42E-05 

2.40E-01 

1.54E-06 

2.59E-05 

-1.39E-05 

2.03E-04 

-2.10E-02 

6.17E-05 

Row 5 

-1.19E-06 

-2.47E-06 

-5.67E-07 

1.54E-06 

9.36E-02 

1.62E-05 

1.72E-05 

1.71E-05 

6.17E-05 

5.27E-03 









































































43 Description of the Structures Under Study 


For the purpose of system identification, two classes of structures were 
considered and modeled in this study, a plane three-bay truss which is referred to as the 
12-BAR truss, and a three-bay space truss which is referred to as the 44-BAR truss. 
The reason for modeling two trusses was to show the success of the methodology and 
formulations presented in chapter III for a variety of trusses. The intent here was to show 
success for a class of structures, such as the 12-BAR truss, where the bending vibration 
modes are dominant over the axial vibration modes, with no torsional vibration modes 
present. Also, the author wanted to examine the methodology on a class of structures, 
such as the 44-BAR truss, where all vibration modes exist at the same time, and they 
may couple during excitation. The bending and torsional vibration modes of the 
44-BAR truss can couple depending upon the combination of elastic and geometric 
properties of the truss. The lengths of the members of both trusses were varied between 
10 and 100 inches. The success of the results was invariant of the range of dimensions 
used. 


Nearly the entire methodology (methods 1 and 2) in this study was developed 
on a simple four-degree-of-ffeedom system first. The reason for the development of 
the methodology on a four-degree-of-freedom system is that its spatial property 
matrices are small enough to check the operations performed on them with another 
mathematical software. The software chosen for checking the FORTRAN program is 
MATHCAD, which is a commercially available software. 

The following terms, used in the tables and figures of chapter IV, are defined as 

follows: 

Analysis matrices or analytical matrices: the matrices from the mathematical 
model or the finite element model which have been generated based on the 
dimensions specified in the drawings of a structure. 

Test modal properties: the measured modal properties from a modal survey test. 

Correlated modal properties: the modal properties obtained by using the test 
matrices. The test matrices are obtained by a system identification process which is 
outlined in method 1 and method 2 of this study. 

4.4 Weighting Matrices 

One of the most difficult tasks in this study was to determine the weighting 
matrices described in equations (3.15) and (3.35). This effort involved experimenting 
with various spatial property matrices, their matrix products, or their ratios in the 
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equations of method 1 and method 2, and observing the results. The intent was to make 
the differences, as described in equations (3.34), (3.47), and (3.48), in the damping 
matrix and/or the stiffness matrix as small as possible. The difficulty associated with 
determining the weighting matrices is the fact that the elements of some of the matrix 
products are large, and at the same time the elements of other matrix products in the same 
equation are too small for further matrix operations such as addition or subtraction. 

When exercising method 1, by using various weighting matrices, the author’s 
observation of the behavior (success or failure) of equation (3.34) led him to the 
following conclusion: as long as the elements of the difference matrix product (that are 
being subtracted from the analytical damping matrix) are approximately 1 0 to 1 00 times 
smaller than the elements of the analytical damping matrix, the system identification is 
successful. The weighting matrix, N, used in equation (3.15) and in the FORTRAN 
program, is the mass matrix to the power of -1/2, and the result is quite successful. 
Depending on the magnitude of the elements of the stiffness matrix when they are 
compared to the elements of the mass matrix to the power of -1/2, the stiffness matrix 
may also be used as the weighting matrix. For the two classes of structures in this study, 
the stiffness matrix was not successful. However, as part of the FORTRAN program for 
method 1, the inverse of the stiffness matrix (to be used as the weighting matrix for 
equation (3.34)) was left for future use. The motivation for leaving the inverse of the 
stiffness matrix in equation (3.34) and the FORTRAN program was that there may be 
some future structures that can successfully work with this inverse. The system 
identification methodology proposed and tried by some authors such as Berman or 
Baruch also use the mass matrix to the power of-1/2 as the weighting matrix. However, 
their methodology is for structures possessing only normal modes (zero damping). 

In an effort to determine the weighting matrix for method 2, the same procedure 
as described above was used. The trial and error used for method 2, however, led the 
author to choose the inverse of the mass matrix as the weighing matrix for TV and the 
mass matrix to the power of -1/2 for T in equation (3.35). With the combination of the 
weighting matrices as described here, when an iterative procedure (refer to section 4.2) 
is used to obtain the test damping matrix in equation (3.47), the process is successful. 

4.5 F our-Degree-of-F reedom System 

The four-degree-of-freedom system is shown in figure 2. 
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*1 K 2 k 3 k 4 

Figure 2: Four-Degree-Of-Freedom System 


We can see in figure 2 that the system is supported at one end. Thus the system 
does not possess rigid body motion. The following spatial properties were assumed for 
the analytical model, and these properties were input and read by the FORTRAN 
program : 


[M\ 
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q _ W — sec 
in 



Since the purpose of the fo ur— degree— o f— freedom system was to 
mathematically check the methodology and the computer programming, only one of the 
spatial property matrices was varied. The varied spatial property matrix was the 
damping matrix. However, the author decided to vary all of the damping coefficients in 
order to exercise all of the vector columns in the formation of equations (3.34), (3.47) 
and (3.48). In this way, if any errors occurred in the program, they would show up in the 
results of the eigenvalues and eigenvectors. Also, in an effort to determine the 
robustness of the methodology and the formulations of chapter HI, the author decided to 
vary the damping coefficients by 10 percent of the analytical values. In engineering 
applications, as a rule of thumb, variations of 10 percent and above are considered to be 
extreme. Thus, the measured damping coefficients should not be over the analytical 
values by 1 0 percent. The resulting test damping matrix for the simulation computer run 
is the following: 
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[C T ] = 


1.8 -0.9 0 0 

-0.9 1.8 -0.9 0 
0 -0.9 1.8 0 

0 0 -0.9 0.9 

Units : 

£ _ lb — sec 

in 

4.5.1 Results for F our-Degree-of-F reedom System 

After the simulation computer runs were completed, the test modal data were 
saved on tape for system identification purposes. Next, the system identification was 
begun by exercising method 1 and method 2, presented in chapter in. For the purpose of 
system identification in method 1, one mode (mode 1), two modes (modes 1 and 2) and 
three modes (modes 1, 2, and 3) were selected and used. The discussion of some of the 
results follows: 

1) Symmetry of Test Matrices: To determine if the resulting correlated spatial 
properties are symmetric, the test stiffness and test damping matrices were printed 
out for one-mode and two-mode system identification. These coefficients are 
tabulated in table II, and we can see that the matrices are symmetric. Therefore, as 
was discussed in section 3.4.1, there is no need to add another constraint as 
expressed in equation (3.17) in order to force the test spatial matrices to be 
symmetric. 

2) Method 1, One-Mode System Identification: The results of this computer run 
are tabulated in table III. Table III shows that the improvement of the first 
frequency is nearly 1 00 percent. Also, the eigenvelocities in table IV show the same 
improvement, that is, nearly 100 percent recovery from the analytical results. It 
should be noted that sometimes during a system identification, the modes and their 
respective conjugates switch places. Because of this potential switching, the 
imaginar y portion of the correlated eigenvelocities have different signs from the 
ones of the test eigenvelocities. Overall, the results of one-mode system 
identification appear to be quite satisfactory. 

3) Method 1, Two-Mode System Identification: The results of this computer run 
are tabulated in tables V and VI. Table V presents the improvement of the first 
frequency as nearly 100 percent, and the improvement of the second frequency as 
100 percent. In addition, the eigenvelocities in table VI show the same 
improvement, that is, nearly 1 00 percent recovery from the analytical results for the 
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first mode and 100 percent recovery for the second mode Overall, the results of the 
two-mode system identification appear to be quite satisfactory. 

4) Method 1, Three-Mode System Identification: The results of this computer 
run are tabulated in tables VII and VIII. In table VII we can see that the 
improvement of the first frequency is nearly 100 percent, and the improvement of 
the second and third eigenvalues have diverged to incorrect values. In table VIII we 
can see the same improvement and divergence in the eigenvelocities, that is, nearly 
100 percent recovery from the analytical results for the first mode and incorrect 
values for the second and the third modes. Overall, the results of the three-mode 
system identification are unsatisfactory. There are several reasons for the 
divergence of the second and the third modes, the second and third modes are local 
modes, while the first mode is a system mode. This means that because of the large 
differences between the analytical damping matrix and the test matrix the local 
modes are too far off to correlate them. Another reason forthe divergence is that in a 
practical structure usually only a small percentage of the spatial properties of the 
test hardware are different from those of the analytical model. In the 
four-degree-of-freedom system 100 percent of the damping coefficients were 
varied, but in reality only a small percentage of the damping coefficients should be 
different. 

5) Method 2, Two-Mode and Three-Mode System Identification: The results of 
these computer runs were not tabulated because no improvements occurred in the 
analytical eigenvalues and eigenvectors. The cause of the convergence to incorrect 
eigenvalues and eigenvectors is the large changes made in the damping matrix. 
Also, as noted in section 4. 1 , a solution which depends on an iterative process does 
not always converge to correct values. 

It should be noted again that the only reason for creating the 
four-degree-of-freedom system was to verify the matrix operations and the 
FORTRAN program. The weighting matrices that were tried and accepted in methods 1 
and 2 of this study apply to trusses in general, and they may or may not be applicable to 
other structural systems in addition to the four-degree-of-freedom system. 
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TABLE II 

TEST DAMPING MATRIX OF THE FOUR DEGREE OF FREEDOM SYSTEM 



1-MODE CORRELATION | 

Real 

Imac 

linary | 

Column 1 

Column 2 

Column 3 

H 

Column 1 

Column 2 

Column 3 

mm 

Row 1 



-6.25E-04 

-1.09E-03 

-6.44E-08 

-1.29E-07 

2.16E-07 

5.83E-07 

Row 2 




-3.71E-03 

-1.29E-07 

-1.34E-07 

1.25E-06 

2.88E-06 

Row 3 

-6.25E-04 



-1.01E+00 

2.16E-07 

1.25E-06 

4.68E-06 

9.19E-06 

Row 4 

-1.09E-03 

I-3.71E-03I 

1 -l.OlE+Ool 

9.89E-01 

5.83E-07 

2.88E-06 

9.19E-06 

1.81E-05 





2-MODE CORRELATION 1 

Real 

Imac 

linary 1 

Column 1 

Column 2 

Column 3 

HE 

Column 1 

Column 2 



Row 1 

1.99E+00 

-T.02E+00 

-7.03E-03 

1.77E-02 

1.73E-05 

2.51E-05 

-1.46E-05 

-1.T2E-05 

Row 2 


1.95E+00 

-1.02E+00 

4.74E-02 

2.52E-05 



2.66E-05 

Row 3 

-7.03E-03 

-1.02E+00 

1.99E+00 

rami 

-1.38E-05 

EE3B3 


6.61 E-05 

Row 4 

1.77E-02 

4.74E-02 


| 9.42E-01 

-9.19E-06 

3.22E-05 

6.99E-05 

-7.25E-05 
























































































TABLE III 


EIGENVALUES OF FOUR DEGREtOF FREEDOM SYSTEM 
1-MODE CORRELATION 
METHOD 1 


ANALYSIS 
EIGENVALUES IN Hz 


MEZSm 

IMAGINARY 

1 

-1.08E-02 

1.22E+01 

2 

XXX 

XXX 

3 

XXX 

XXX 

4 

XXX 

XXX 

S 

XXX 

XXX 


E 

CORRELATED 
GENVALUES IN Hz 

MODE 

REAL 

IMAGINARY 

1 

-9.75E-03 

-1.22E+01 

2 

XXX 

XXX 

3 

XXX 

XXX 

4 

XXX 

XXX 

5 

XXX 

XXX i 


TEST 

EIGENVALUES IN Hz 

MODE 

REAL 

IMAGINARY 

1 

-9.75E-03 

1.22E+01 

2 

XXX 

XXX 

3 

XXX 

XXX 

4 

XXX 

XXX 

5 

XXX 

XXX . 



















































TABLE IV 


EIGENVELOCITIES OF FOUR-DEGREBOF FREEDOM SYSTEM 
1 -MODE CORRELATION 
METHOD 1 



TEST 

! ANALYSIS | CORi 

(ELATED 

D.O.F 

MODE 

REAL 

IMAGINARY 

REAL 


REAL 

IMAGINARY 

1 

1 

-3.75E-03 

1.9SE+00 

-4.16E-03 

1.95E+00 1 

-3.99E-03 

-1.95E+00 

2 

1 

-7.94E-03 

4.73E+00 

-8.83E-03 

4.73E+00 

-8.41E-03 

-4.73E+00 

3 

1 

-9.17E-03 

9.30E+00 

-1.02E-02 

9.30E+00 

-9.36E-03 

-9.30E+00 

1 4 

1 

-9.75E-03 

1.22E+01 

-1.08E-02 

1.22E+01 

-9.75E-03 

-1.22E+01 



TABLE V 


EIGENVALUES OF FOUR DEGREE OF FREEDOM SYSTEM 
2-MODE CORRELATION 
METHOD 1 


CORRELATED 
EIGENVALUES IN Hz 

MODE 

REAL 

IMAGINARY 

1 | 

-9.75E-03 

1.22E+01 

2 

-7.08E-02 

-3.28E+01 

3 

XXX 

XXX 

4 

XXX 

XXX 

5 

XXX 

XXX 


ANALYSIS 
EIGENVALUES IN Hz 

MODE 

REAL 

IMAGINARY 

1 

-1.08E-02 

1.22E+01 

2 

-7.86E-02 

-3.28E+01 

3 

XXX 

XXX ! 

4 

XXX 

XXX 

5 

XXX 

XXX 


TEST 

EIGENVALUES IN Hz 

MODE 

REAL 

IMAGINARY 

1 

-9.75E-03 

1.22E+01 

2 

-7.08E-02 

-3.28E+01 

3 

XXX 

XXX 

4 

XXX 

XXX 

5 

XXX 

XXX 






















































TABLE VI 


EIGENVELOCITIES OF FOUR DEGREE OF fREEDOM SYSTEM 
2-MODE CORRELATION 
METHOD 1 


TEST | ANALYSIS | CORRELATED “1 


D.O.F 

MODE 

REAL 

IMAGINARY | REAL | IMAGINARY | REAL | IMAGINARY | 

1 

1 

-3.74E-03 

1.94E+00 

-4.16E-03 

1.94E+00 

-3.78E-03 

1.95E+00 

1 

2 

-2.14E-03 

-6.08E+00 

-2.38E-03 

-6.08E+00 

-2.14E-03 

-6.08E+00 

2 

1 

-7.94E-03 

4.71E+00 

-8.82E-03 

4.71E+00 

-7.98E-03 

4.73E+00 

2 

2 

9.22E-03 

-1.19E+01 

1.02E-02 

-1.19E+01 

9.22E-03 

-1.19E+01 [ 

3 

1 

-9.19E-03 

9.26E+00 

-1.02E-02 

9.26E+00 

-9.03E-03 

9.30E+00 

3 

2 

2.42E-02 

-5.68E+00 

2.68E-02 

-5.68E+00 

2.42E-02 

-5.68E+00 

4 

1 

-9.78E-03 

1.22E+01 

-1.09E-02 

1.22E+01 

-9.75E-03 

1.22E+01 

4 

2 

-3.68E-03 

7.89E+00 

-4.09E-03 

7.89E+00 

-3.68E-03 

7.89E+00 



TABLE VII 


EIGENVALUES OF FOUR- DEGREE- OF- FREEDOM SYSTEM 
3-MODE CORRELATION 
METHOD 1 


CORRELATED 
EIGENVALUES IN Hz 

MODE 

REAL 

IMAGINARY 

1 

-9.75E-03 

1.22E+01 

2 

2.41 E+00 

-3.27E+01 

3 

2.36E+00 

3.27E+01 

4 

XXX 

XXX 

5 

XXX 

)0(X 


ANALYSIS 
EIGENVALUES IN Hz 


REAL 

IMAGINARY 

1 

-1.08E-02 

1.22E+01 

2 

-7.86E-02 

-3.28E+01 

3 

wmsm 

3.28E+01 

4 

XXX 

XXX 

5 

XXX 

XXX 


TEST 

EIGENVALUES IN Hz 

MODE 

REAL 

IMAGINARY 

1 

-9.75E-03 

1.22E+01 

2 

-7.08E-02 

-3.28E+01 

3 

-7.08E-02 

3.28E+01 

4 

XXX 

XXX 

5 

XXX 

XXX 






















































TABLE VIII 


EIGENVELOCITIES OF FOUR DEGREE OF FREEDOM SYSTEM 
3-MODE CORRELATION 
METHOD 1 


TEST \ ANALYSIS | CORRELATED "1 


H J 

MODE 

REAL 


mzm 


REAL 


1 

1 

-3.74E-03 

1.93E+00 

-4.16E-03 

1^93E+00 | 

-3.74E-03 

1^93E+00 1 

1 

2 

-2.09E-03 

-6.06E+00 

-2.32E-03 

-6.06E+00 

5.08E-01 

msssssm 

1 

3 

1.36E-02 

-6.06E+00 

1.51E-02 

-6.06E+00 

5.1 IE-01 

3.40E-04 

2 

1 

-7.95E-03 

4.69E+00 

EE3E1 

4.69E+00 

-7.95E-03 

4.69E+00 

2 

2 

9.28E-03 

-1.19E+01 

1.03E-02 

-1.19E+01 

1.00E+00 

0.00E+00 

2 

3 

1.33E-02 

-1.19E+01 

I 1.47E-02 

-1.19E+01 

1.00E+00 

O.OOE+OO 

3 

1 

-9.23E-03 

9.23E-KX) 

-1.03E-G2 

9.23E400 


9.23E400 

3 

2 

2.41E-02 

-5.66E+00 

2.68E-02 

-5.66E+00 

4.84E-01 

3.36E-03 

3 

3 

-1.34E-02 

-5.66E+00 

•1.49E-02 

•5.66E+00 

4.68E-01 

5.82E-05 

4 

1 

msEissm 

1.21E+01 

-1.09E-02 

1.21E+01 

EEI2E 1 

1.21E+01 

4 

2 

-3.73E-03 

7.86E+00 

-4.14E-03 

7.86E+00 

-5.66E-01 

-7.49E-04 

4 

3 

-1.12E-02 

7.86E+00 

-1.24E-02 

7.86E+00 

-1.12E-02 

7.86E+00 





























































































4.6 12-BAR Truss 


The finite element model of the 12-BAR truss is shown in figures 3 and 4. The 
MSC/NASTRAN finite element program was used to model the 12-BAR truss. As can 
be observed in figure 3, the 12-BAR plane truss consists of three bays. Each bay of the 
truss consists of two longerons, one batten, and one diagonal. The numbers in figure 3 
represent the finite element node numbers. Nodes 1, 5, 9, 10, 11, 12, 13, 14, 15, and 16 
have been grounded. The remaining nodes can translate in two orthogonal directions in 
the plane of the figure. We can see in figure 4 that there are 12 ROD elements, which 
have been designated by the abbreviation, RD. ROD elements in MSC/NASTRAN are 
general purpose elements with tension and compression capability. Therefore, the 
stiffness matrix of a ROD element is the same as the stiffness matrix of a simple spring. 
The mass of a ROD element is divided by two and the masses are placed on the two 
respective nodes surrounding the ROD element. Also, in figure 4 the viscous dampers 
(VISC) have been designated by the abbreviation, VS. The purpose of these elements is 
to resist the dynamic motion of the connecting joint in each translational direction. 
Thus, they represent the viscous damping in the joints of the truss. The VISC elements 
in the MSC/NASTRAN finite element program are general purpose elements and they 
represent the general viscous dampers. In other words, the force produced by an element 
is equal to the velocity of the connecting degree— of— freedom times a damping 
coefficient. Since the lateral vibration motion of the 12-BAR truss is dominant, only 
one viscous element has been attached to every joint of the truss, except to the joints at 
the free end of the truss, where two viscous dampers per joint have been attached. There 
are two viscous dampers per joint at the free end of the truss to resist the dynamic motion 
in two directions (lateral and axial) simultaneously, if a small coupling between the axial 
vibration modes and the lateral vibration modes exists. 

The ROD elements are made of steel. ROD elements of the analytical 12-BAR 
truss finite element model have the following properties: 

Modulus of elasticity = E = 30 . 0E6-^r 

in 1 

Poisson’s ratio = v = . 33 

Outer diameter of truss members = O . D . = 1 . 0 in 
Thickness of truss members = / = 0 . 075 in 
Mass density of truss members = g = 0 . 0283— — . 


The VISC elements of the analytical 12-BAR truss finite element model have 
the following property: 
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Damping coefficient = C = 1 . 0 — sec 

in 

It should be noted that the selected value of the damping coefficient is quite 
large, and based on this selection, the real and imaginary parts of the eigenvalues and 
eigenvectors have the same order of magnitude. This selection determines whether the 
methodology and the FORTRAN program in this study can support and handle 
structures with large damping. 

In an effort to visualize the vibration motion of the analytical finite element 
model of the 12-BAR truss, the complex eigenvalue-eigenvector extraction of 
MSC/NASTRAN was activated, and the modal deformation plots have been included 
here. The modal deformation plots for the first four modes of the 1 2-BAR truss when it 
contains the analytical spatial properties are found in figures 5 through 12. Figures 5 
through 8 present the real portion of the modal deformations, and figures 9 through 12 
represent the imaginary portion of the modal deformations. In order to better visualize 
and understand the motion of the 12-BAR truss, the modal deformations have been 
superimposed on the undeformed shape of the truss. We can see in figures 5 through 8 
that the modal deformation plots represent the system level modes, where the entire 
structure is in motion. It should be noted that the kinetic energy values associated with 
modes 2 though 4 are close, since the shape of their deformation and their respective 
normalized eigenvectors are close. 

The following steps were taken to construct a test model: 

1) The coefficients of the VISC elements 17, 18, 19, and 20 were varied. When 
varying the damping coefficients of these elements, 50 percent of the elements of 
the damping matrix in the test model have different values than those in the 
analytical model. 

2) The modulus of elasticity of the diagonal elements, namely ROD elements 7, 9, 
and 1 1 were varied. When varying the modulus of elasticity, the stiffness of the 
ROD elements would vary proportionally. In general, when varying the stiffness 
values of diagonal elements of a truss the bending stiffness is greatly influenced 
since a large portion of the bending stiffness is due to the action (tension and 
compression) in the diagonal elements. 

Variance of the properties of the diagonal ROD elements was not done 
randomly. Because of the connectivity of the diagonals to the joints, and the fact that 
they connect to the joint at an angle, the effective stiffness of the joint combined with that 
of the diagonal may be different from the effective stiffness of the joint combined with 
that of the longerons or of the battens. Selection of the VISC elements was done 
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randomly by the author who assumed that the manufacturing process for the joints might 
have been different enough to create different damping coefficients for the truss joints. 
However, in a practical structural system, the difference between the analytical spatial 
properties and the test spatial properties cannot be as severe as 10 percent of 50 percent 
of the joints. The 5 percent or 10 percent reduction of the analytical spatial properties 
was used here only to examine the robustness of the methodology of this study. 

In an effort to examine the accuracy and robustness of the methodology of the 
system identification and the FORTRAN program used for this study, the values, as 
described above, were varied twice. The first variation of the values was a 5 percent 
reduction of the analytical model’s properties. All the simulation computer runs for this 
5 percent reduction were called 95 models. The second variation of the values was a 10 
percent reduction of the analytical model’s properties. All of the simulation computer 
runs for this 10 percent reduction were called 90 models. 

In an effort to visualize the vibration motion of the test finite element model of 
the 12-BAR truss, the complex eigenvalue-eigenvector extraction of MSC/NASTRAN 
was again activated The modal deformation plots have been included here for the modal 
deformation of the first four modes of the 1 2-BAR truss, 95 model, in figures 1 3 through 
20. The modal deformation plots of the 90 model have not been included because the 
deformation shapes are the same as the ones of the 95 model. When comparing the 
modal deformation plots of the 90 model with those of the analytical model, the modal 
deformation of the first, second and fourth eigenvalues have the same shape. The modal 
deformation plots of the third eigenvalue appear to be different. However, when the 
third modal deformation shapes of the two finite element models are examined visually, 
we can see that the modal deformations are the same. They are, in fact, mirror images of 
each other, and the only difference is the way they have been plotted by the 
MSC/NASTRAN. As can be observed from the modal deformation plots in figures 1 3 
through 20, the modes are system level modes, where the entire structure is in motion. 

After the simulation computer runs were completed, the test modal data were 
saved on tape for the system identification process. Then the system identification was 
begun by exercising method 1 and method 2 presented in chapter HI. The results of 
two-mode to five-mode system identification for the 95 model have been presented and 
discussed. However, the results of only the two-mode and five-mode system 
identifications for the 90 model have been presented here due to the similarity in results 
of the two models. The system identification for the two-mode computer runs use 
modes 1 and 2. The system identification for the five— mode computer runs use modes 1 , 
3, 5, 7, and 9. The motivation for using a wide variety of modes in identifying the 95 and 
90 models was to examine the degradation in the quality of the test eigenvalues and 
eigenvectors, if any. 
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Figure 3: Analysis Finite Element Model Of 12-BAR Truss, Node Numbers 



Figure 4: Analysis Finite Element Model Of 12-BAR Truss, Element Numbers 










Figure 6: Modal Deformation Plot Of Analysis Finite Element Model Of 12-BAR Truss, 

Mode 2, Frequency=609.2841 Hz, Phase=0 
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Figure 7: Modal Deformation Plot Of Analysis Finite Element Model Of 12-BAR Truss, 

Mode 3, Frequency=945.7958 Hz, Phase=0 








Figure 9: 



I 


Figure 10: Modal Deformation Plot Of Analysis Finite Element Model Of 12-BAR Truss, 

Mode 2, Frequency=609.2841 Hz, Phase=-90 



Figure 11: Modal Deformation Plot Of Analysis Finite Element Model Of 12-BAR Truss, 

Mode 3, Frequency=945.7958 Hz, Phase=-90 




Figure 12: Modal Deformation Plot Of Analysis Finite Element Model Of 12-BAR Truss, 

Mode 4, Frequency=1596.589 Hz, Phase=-90 


I 


£ 



Figure 13: Modal Deformation Plot Of Test Finite Element Model Of 12-BAR Truss, 

95 Model 

Mode 1, Frequency=162.6529 Hz, Phase=0 


Figure 14: Modal Deformation Plot Of Test Finite Element Model Of 12-BAR Truss, 

95 Model 

Mode 2, Frequency=604.2818 Hz, Phase=0 



Figure 15: Modal Deformation Plot Of Test Finite Element Model Of 12-BAR Truss, 

95 Model 

Mode 3, F requency=940.3 127 Hz, Phase=0 





t Model Of 12-BAR Truss, 


90 
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Figure 18: Modal Deformation Plot Of Test Finite Element Model Of 12-BAR Truss, 

95 Model 

Mode 2, Frequency=604.2818 Hz, Phase=-90 



Figure 19: Modal Deformation Plot Of Test Finite Element Model Of 12-BAR Truss, 

95 Model 

Mode 3, F requency=940.3127 Hz, Phase=-90 



Figure 20: Modal Deformation Plot Of Test Finite Element Model Of 12-BAR Truss, 

95 Model 

Mode 4, Frequency=1581.193 Hz, Phase=-90 


4.6.1 Results for 12-BAR Truss, 95 Model, Method 1 


1) Method 1, Two-Mode System Identification: The results of this computer run 
are documented in figures 21 through 25 and in tables DC and X. We can see in table 
DC that the improvements of the first and second eigenvalues are nearly 100 percent 
Also, the eigenvelocities in table X show the same improvements, that is, nearly 
100 percent improvement over the analytical results for the first and the second 
modes. The values of the orthogonality condition matrix, equation (3.11), are 
plotted in figures 21 and 22. The values in figure 21 are based on the analytical 
eigensystem vectors and the analytical spatial property matrices. The values in 
figure 22 are based on the test eigensystem vectors and the analytical spatial 
property matrices. The off-diagonal terms in figures 21 and 22 are nearly zero, 
since method 1 only improves upon the damping matrix. The values of the 
orthogonality condition matrix (equation (3.10)), are plotted in figures 23 through 
25. The values in figure 23 are based on the test modal properties and the analytical 
spatial property matrices. The values in figure 24 are based on the test modal 
properties and the test spatial property matrices. Figure 25 values are based on the 
correlated modal properties and the test spatial property matrices. As can be 
observed in figures 23 through 25, the off-diagonal terms are not quite zero. 
Non-zero off-diagonal terms were expected in figure 23 because, theoretically 
speaking, the test modal properties belong to a structural system that is different 
from the analytical finite element model. Although it is hard to visualize, the 
off-diagonal terms have improved in figure 25 and they have gotten closer to zero. 
In addition to the improvement in the values of the eigenvalues and eigenvectors, 
one of the measures used to determine the success of the system identification 
process is to examine the orthogonality condition before and after the system 
identification. If the off-diagonal terms of the orthogonality condition have 
approached zero, the system identification is successful. In fact, examining the 
orthogonality matrices in large structures is the only measure of checking the 
success of the system identification process for the eigenvelocities, since the large 
number of DOF’s of the system makes it impractical to check the eigenvelocities. 
When the eigenvelocities in table X are visually examined the values of the 
orthogonality condition matrices in figures 24 and 25 are approximately the same, 
since the correlated eigenvelocities have approached the test eigenvelocities. 
Overall, the results of the two-mode system identification appear quite satisfactory. 
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TABLE IX 


EIGENVALUES OF 12-BAR TRUSS 
2-MODE CORRELATION 
METHOD 1, 95 MODEL 
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TABLE X 


EIGENVELOCITIES OF 12-BAR TRUSS 
2-MODE CORRELATION 
METHOD1, 95 MODEL 


TEST || ANALYSIS || CORRELATED | 


|Ksa 

MODE [ 

REAL 

IMAGINARY 

REAL 


REAL 


i 

1 

7.03E-02 

1.91E-03 

7.07E-02 

1 1.95E-03 i 

7.10E-02 

1.95E-03 

i 

2 

-1.35E-01 


-1.41E-01 

m Essm 

-1.40E-01 

■Mill 

2 

1 

2.28E-01 

1.08E-02 

2.26E-01 

1.08E-02 

2.28E-01 

1.08E-02 | 

2 

2 

-1.09E+00 

-7.51E-02 

-1.09E+00 

! -7.58E-02 

-1.08E+00 

WBE83SM 

3 

1 

8.46E-02 

-5.33E-05 

8.51 E-02 

-6.00E-05 

8.52E-02 

-6.52E-05 

3 

2 

2.26E-02 

7.22E-03 

1.96E-02 

7.77E-03 

1.98E-02 

7.73E-03 

4 

i 

6.03E-01 

1.47E-02 

6.02E-01 

1.47E-02 

6.03E-01 

1.47E-02 

4 

2 

-5.86E-01 

-1.06E-01 

-5.91E-01 

-1.08E-01 


-1.07E-01 

5 

1 

9.86E-02 

-2.26E-03 

9.93E-02 

-2.32E-03 

9.92E-02 

-2.33E-03 

5 

2 

1.80E-01 

2.36E-02 

1.79E-01 

2.49E-02 

1.79E-01 

2.46E-02 

6 

1 

9.99E-01 

6.37E-04 

9.99E-01 

■SlElgM 

9.99E-01 

6.15E-04 

6 

2 

1.00E+00 

0.00E+00 

1.00E+00 

O.OOE+OO 

1.00E+00 

O.OOE+OO 

7 

1 

-4.00E-02 

7.12E-04 

-4.03E-02 

7.13E-04 

-4.01E-02 

7.10E-04 

7 

2 

-2.00E-01 

-2.32E-03 

-2.04E-01 

-2.13E-03 

-2.03E-01 

-2.00E-03 

8 

1 

2.28E-01 

1.08E-02 

2.26E-01 

1.08E-02 

2.28E-01 

1.08E-02 

8 

2 

-1.11E+00 

-7.81E-02 

-1.11E+00 

-7.89E-02 

-1.11E+00 

-7.72E-02 

9 

1 

-7.99E-02 

1.54E-03 


1.54E-03 

BESS a 

1.54E-03 

9 

2 

-3.92E-01 

-6.29E-03 

-3.98E-01 

-6.00E-03 

-3.97E-01 | 

-5.72E-03 

10 

1 

6.02E-01 

1.46E-02 

6.00E-01 

1.47E-02 


■m 

10 

2 

-5.73E-01 

-1.03E-01 

-5.78E-01 

-1.05E-01 

Emaaa 

-1.03E-01 

11 

1 

HS1 

1.65E-03 

MEMZM 

1.65E-03 


1.64E-03 

11 

2 

-4.03E-01 

-8.92E-03 

-4.09E-01 

-8.63E-03 

-4.08E-01 

-8.32E-03 

12 

1 

1. 00E +00 

O.OOE+OO 

1.00E+00 

0.00E+00 

1.00E+00 

O.OOE+CO 

12 

2 

1.01E+00 

3.04E-03 

1.01E+00 

3.00E-03 

1.01E+00 

2.96E-03 








































































































































































I 

V) 

I 


O.OOE+OO 
-2.00E-03 
-4.00E-03 
-6.00E-03 
-8.00E-03 
-1.00E-02 
-1.20E-02 
-1.40E-02 
-1.60E-02 
-1.80E-02 
-2.00E-02 



6.00E-03 
5.00E-03 
4.00E-03 
3.00E-03 
2.00E-03 
1.00E-03 
O.OOE+OO 
-1.00E-03 
-2.00E-03 
-3.00E-03 
-4.00E-03 



REAL 


IMAGINARY 


Figure 21: Orthogonality Condition Of 12-BAR Truss Based On Eqn. (3.11), 

Analysis Model 
2 Mode System Identification 




REAL 


IMAGINARY 


Figure 22: Orthogonality Condition Of 12-BAR Truss Based On Eqn. (3.11), 

Test Model, 95 Model 
2 Mode System Identification 











REAL 


IMAGINARY 


Figure 23: Orthogonality Condition Of 12-BAR Truss Based On Eqn. (3.10), 
Test Modal Properties, and Analytical Spatial Properties 
2 Mode System Identification Using Method 1 
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1.00E-06 
O.OOE+OO 
-1.00E-06 
-2.00E-06 
-3.00E-06 
-4.00E-06 
-5.00E-06 
-6.00E-06 
-7.00E-06 
-8.00E-06 
-9.00E-06 



REAL 



IMAGINARY 


Figure 24: Orthogonality Condition Of 12-BAR Truss Based On Eqn. (3.10), 
Test Modal Properties, and Test Spatial Properties 
2 Mode System Identification Using Method 1 
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1.00E-06 
O.OOE+OO 
-1.00E-06 
-2.00E-06 
-3.00E-06 
-4.00E-06 
-5.00E-06 
-6.00E-06 
•7.00E-06 
-8.00E-06 
-9.00E-06 



REAL 


IMAGINARY 


Figure 25: Orthogonality Condition Of 12-BAR Truss Based On Eqn. (3.10), 
Correlated Modal Properties, and Test Spatial Properties 
2 Mode System Identification Using Method 1 











2) Method 1, Three-Mode System Identification: The results of this computer 
run are documented in tables XI and XII. Table XI indicates that the improvements 
of the first, second, and third eigenvalues are 100 percent Also, the eigen velocities 
in table XII show the same improvements, that is, nearly 100 percent improvement 
over the analytical results for the first, second, and third modes. Overall, the results 
of the three-mode system identification appear quite satisfactory. 

3) Method 1, Four-Mode System Identification: The results of the this computer 
run are documented in tables XIII and XIV. Table XII indicates that the 
improvements of the first, second, third, and fourth eigenvalues are 100 percent 
Also, the eigenvelocities in table XTV show the same improvements, that is, nearly 
100 percent improvement over the analytical results for the first, second, third, and 
fourth modes. Overall, the results of the four-mode system identification appear 
quite satisfactory. 

4) Method 1, Five-Mode System Identification: The results of this computer ran 
are documented in figure 26, and in tables XV and XVI. Table XV indicates that the 
real portions of the first, second, and third have improved somewhat, but not nearly 
as much as with the two-mode to four-mode system identification. The real 
portions of the fourth and fifth modes did not improve, and in fact they became 
worse than the analytical eigenvalues. The imaginary portions of all eigenvalues 
did not improve at all. Also, the eigenvelocities in table XVI show the same 
divergence, that is, the magnitudes of nearly all eigenvelocities either remained the 
same or worsened. The values of the orthogonality condition matrix (equation 
(3.10)) have been plotted in figure 26 with the values based upon the correlated 
modal properties and the test spatial property matrices. We can see in figure 26 that 
the off-diagonal terms are not near zero, and in fact some of their values are very 
close to the diagonal terms. Therefore, the method 1 system identification using 
five modes failed. 
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TABLE XI 


EIGENVALUES OF 12-BAR TRUSS 
3-MODE CORRELATION 
METHOD 1, 95 MODEL 


laEHiaaaa 


TEST 

EIGENVALUES IN Hz 


MODE REAL 


-4.62E+02 1.02E+03 


2 | -3.78E+02 I -3.80E+03 


3 -3.331+02 -5.91E+03 






ANALYSIS 
EIGENVALUES IN Hz 


MODE 


1 


2 


3 


REAL 


-4.74E+02 


-3.86E+02 


-3.42E+02 






IMAGINARY 


1.02E+03 


-5.94E+03 






CORRELATED 
EIGENVALUES IN Hz 


MODE REAL IMAGINARY 



-4.62E+02 


-3.78E+02 


-3.33E+02 






1.02E+03 


-3.80E+03 


-5.91 E+03 



























































TABLE XII 


EIGENVELOCITIES OF 12-BAR TRUSS 
3-MODE CORRELATION 
METHOD 1, 95 MODEL 


TEST t ANALYSIS | CORRELATED ] 



MODE 

REAL 


1 

1 

7.03E-02 

1.91E-03 

7.07E-02 

1.95E-03 

7.10E-02 

1.96E-03 | 

1 

2 

-1.35E-01 

msEssm 

-1.41E-01 

-9.50E-03 

-1.40E-01 


1 

3 

-2.14E-01 

7.74E-03 

-2.19E-01 

7.51 E-03 

-2.19E-01 

7.72E-03 

2 

1 

2.28E-01 

1.08E-02 

2.26E-01 

1.08E-02 

2.28E-01 

1.08E-02 

! 2 

2 

-1.09E+00 

-7.51E-02 

-1.09E+00 

-7.58E-02 

-1.08E+00 

-7.53E-02 

2 

3 

-7.17E-01 

-3.10E-02 

-7.1 IE-01 


-7.13E-01 

-3.13E-02 

3 

1 

8.46E-02 

-5.33E-05 

8.51E-02 

-6.00E-05 

MBBZm 

-4.15E-05 

3 

2 

2.26E-02 

7.22E-03 

1.96E-02 

7.77E-03 

2.03E-02 

7.22E-03 

3 

3 

-6.38E-01 

2.21 E*02 

-6.52E-01 

2.22E-02 

-6.52E-01 

2.23E-02 

4 

1 

6.03E-01 

1.47E-02 

6.02E-01 

1.47E-02 

6.04E-01 

1.46E-02 

4 

2 

-5.86E-01 

-1.06E-01 

-6.91 E-01 

-1.08E-01 


-1.06E-01 

4 

3 

1.00E+00 

0.00E+00 

1.00E+00 

0.00E+00 

1.00E+00 

0.00E+00 

5 

1 

9.86E-02 

-2.26E-03 

9.93E-02 

-2.32E-03 

9.90E-02 

-2.29E-03 

5 

2 

1.80E-01 

2.36E-02 

1.79E-01 

2.49E-02 

1.80E-01 

2.39E-02 

5 

3 

-9.94E-01 

2.64E-02 

-1.01E+00 

2.64E-02 

-1.02E+00 

2.65E-02 

6 

1 

9.99E-01 

6.37E-04 

9.99E-01 

6.14E-04 

9.99E-01 

6.14E-04 

6 

2 

1.00E+00 

0.00E+00 


0.00E+O0 

1.00E+00 

0.00E+00 

6 

3 

W3SSSSM 

7.04E-02 

-6.77E-01 

7.26E-02 

-6.78E-01 

7.07E-02 

7 

1 

-4.00E-02 

7.12E-04 

-4.03E-02 

7.13E-04 

-4.01 E-02 

7.21E-04 

7 

2 

-2.00E-01 

-2.32E-03 

-2.04E-01 

-2.13E-03 

-2.03E-01 

-2.34E-03 

7 

3 

-2.83E-01 

5.86E-04 

-2.90E-01 

2.69E-04 

-2.91E-01 

6.90E-04 

8 

1 

2.28E-01 

1.08E-02 

2.26E-01 

1.08E-02 

2.28E-01 

1.08E-02 

8 

2 

-1.11E+00 

-7.81E-02 

-1.11E+00 

-7.89E-02 

-1.11E+00 

-7.84E-02 

8 

3 

-7.58E-01 

-3.49E-02 

-7.52E-01 

-3.7 IE-02 

-7.54E-01 

-3.52E-02 



















































































































































































CONTINUATION OF TABLE XII 


EIGENVELOCITIES OF 12-BAR TRUSS 
3-MODE CORRELATION 
METHOD 1, 95 MODEL 


1 

TEST 

ANALYSIS | 

CORRELATED | 

D.O.F 

MODE 

REAL 


REAL 

IMAGINARY 

REAL 

IMAGINARY 

9 

1 

-7.99E-02 

1.54E-03 

-8.05E-02 

1.54E-03 

-8.02E-02 

1.56E-03 

9 

2 

-3.92E-01 

-6.29E-03 

-3.98E-01 

-6.00E-03 

-3.97E-01 

-6.38E-03 

9 

3 

-5.36E-01 

-2.30E-03 

-5.49E-01 

-3.09E-03 

-5.50E-01 

-2.26E-03 

10 

1 

6.02E-01 

1.46E-02 

6.00E-01 

1.47E-02 

6.02E-01 

1.46E-02 

10 

2 

-5.73E-01 

-1.03E-01 

-5.78E-01 

-1.05E-01 

-5.74E-01 

-1.03E-01 

10 

3 

9.46E-01 

-2.23E-03 

9.46E-01 

-2.53E-03 

9.46E-01 

-2.50E-03 

11 

1 

-8.01E-02 

1.65E-03 

-8.07E-02 

1.65E-03 

-8.04E-02 

1.66E-03 

11 

2 

-4.03E-01 

-8.92E-03 

-4.09E-01 

-8.63E-03 

-4.08E-01 

-9.01 E-03 [ 

11 

3 

-5.73E-01 

-8.67E-03 

-5.88E-01 

-9.61 E-03 

-5.88E-01 

-8.71 E-03 

12 

1 

1.00E+00 

0.00E+00 

1.00E+00 

0.00E+00 

1.00E+00 

0.00E+O0 

12 

2 

1.01E+00 

3.04E-03 

1.01E+00 

3.00E-03 

1.01E+00 

2.95E-03 

12 

3 

-7.00E-01 

6.91E-02 

-7.01 E-01 

7.14E-02 

-7.01 E-01 

6.95E-02 




TABLE XIII 


EIGENVALUES OF 1 2-BAR TRUSS 
4-MODE CORRELATION 
METHOD 1, 95 MODEL 



TEST 

1 

| EIGENVALUES IN Hz | 

1 MODE 

I REAL 

IMAGINARY | 

| 1 | -4.62E+02 | 1.02E+Q3 g 

2 

iMMSa 

3 

-3.33E+02 

-5.91E+03 | 

4 

-2.48E+02 

WEttS . Ml 

5 

XXX 

XXX | 


ANALYSIS 
EIGENVALUES IN Hz 

MODE 

REAL 

IMAGINARY 

1 


1.02E+03 

2 

-3.86E+02 

-343E+03 

3 



4 

-2.55E+02 

-1.00E+04 

5 

XXX 

XXX 


CORRELATED 
EIGENVALUES IN Hz 


REAL 

IMAGINARY 

1 

BB3 

1.02E+03 

2 

-3.78E+02 

-3.80E+03 

3 

-343E+02 

-5.91 E+03 

4 

-2.48E+02 

-9.93E+03 

5 

XXX 

XXX 

















































TABLE XIV 


EIGENVELOCmES OF 12-BAR TRUSS 
4-MODE CORRELATION 
METHOD 1, 95 MODEL 


TEST I ANALYSIS | CORRELATED 


D.O.F 

MODE | 

REAL 


REAL 

IMAGINARY 

1 

1 

7.03E-02 

1.91E-03 

7.07E-02 

1.95E-03 

7.09E-02 

1.95E-03 

1 

2 

-1.35E-01 

-9.26E-03 

-1.41E-01 

-9.50E-03 

-1.38E-01 

-9.55E-03 

1 

3 

-2.14E-01 

7.74E-03 

-2.19E-01 

7.51 E-03 

-2.11E-01 

7.67E-03 

1 

4 

5.42E-01 

-2.27E-02 

5.43E-01 

-2.29E-02 

5.42E-01 

-2.25E-02 

2 

1 

2.28E-01 

1.08E-02 

2.26E-01 

1.08E-02 

2.28E-01 

1.08E-02 

2 

2 

-1.09E+00 

-7.51E-02 

-1.09E+00 

-7.58E-02 

-1.09E+00 

-7.50E-02 

2 

3 

-7.17E-01 

-3.10E-02 

-7.11E-01 

-3.32E-02 

-7.17E-01 

-3.09E-02 | 

2 

4 

-6.12E-01 

3.92E-02 

-6.26E-01 

4.03E-02 

-6.10E-01 

3.88E-02 

3 

1 

8.46E-02 

-5.33E-05 

8.51 E-02 

-6.00E-05 

8.49E-02 

-4.59E-05 

3 

2 

2.26E-02 

7.22E-03 

1.96E-02 

7.77E-03 

2.38E-02 

7.18E-03 

3 

3 

-6.38E-01 

2.21E-02 

-6.52E-01 

2.22E-02 

-6.37E-01 

2.22E-02 

3 

4 

8.11E-01 

-2.59E-02 

8.10E-01 

-2.56E-02 

8.1 IE-01 

-2.54E-02 

4 

1 

6.03E-01 

1.47E-02 

6.02E-O1 

1.47E-02 

6.03E-01 

1.46E-02 

4 

2 

-5.86E-01 

-1.06E-01 

-5.91 E-01 

-1.08E-01 

-5.86E-01 

-1.06E-01 

4 

3 

1.00E+00 

O.OOE+OO 

1.00E+00 

O.OOE+OO 

1.00E+00 

O.OOE+OO 

4 

4 

5.01E-01 

-2.52E-02 

5.13E-01 

-2.55E-02 

5.01 E-01 

-2.47E-02 

5 

1 

9.86E-02 

-2.26E-03 

9.93E-02 

-2.32E-03 

9.88E-02 

-2.30E-03 

5 

2 

1.80E-01 

2.36E-02 

1.79E-01 

2.49E-02 

1.84E-01 

2.39E-02 

5 

3 

-9.94E-01 

2.64E-02 

-1.01E+00 

2.64E-02 

-9.98E-01 

2.65E-02 

5 

4 

8.37E-01 

-9.05E-03 

8.28E-01 

-7.89E-03 

8.32E-01 

-7.93E-03 

6 

~1 

9.99E-01 

6.37E-04 

9.99E-01 

6.14E-04 

9.99E-01 

6.14E-04 

6 

2 

1.00E+00 

O.OOE+OO 

1.00E+00 

O.OOE+OO 

1.00E+00 

O.OOE+OO 

6 

3 

-6.77E-01 

7.04E-02 

-6.77E-01 

7.26E-02 

-6.76E-01 

7.05E-02 

6 

4 

-2.30E-01 

2.56E-02 

-2.35E-01 

2.57E-02 

-2.29E-01 

2.53E-02 



CONTINUATION OF TABLE XIV 


EIGENVELOCITIES OF 12-BAR TRUSS 
2-MODE CORRELATION 
METHOD 1, 95 MODEL 



I TEST 

1 ANALYSIS | CORRELATED I 

D.O.F 

MODE 

REAL 

IMAGINARY 

REAL 


REAL 


7 

1 

-4.00E-02 

7.12E-04 

•4.03E-02 

7.13E-04 

-4.02E-02 

7.18E-04 

7 

2 

-2.00E-01 

-2.32E-03 

-2.04E-01 

-2.13E-03 

-2.01E-01 

-2.34E-03 

7 

3 

-2.83E-01 

5.86E-04 

-2.90E-01 

2.69E-04 

-2.82E-01 

7.20E-04 

7 

4 

4.82E-01 

-1.61E-02 

4.81E-01 

-1.63E-02 

4.81E-01 

-1.62E-02 

8 

1 

2.28E-01 

1.08E-02 

2.26E-01 

l 1.08E-02 

2.28E-01 

1.08E-02 

8 

2 

-1.11E+00 

-7.81 E-02 

-1.11E+00 

-7.89E-02 

-1.11E+00 

-7.81 E-02 

8 

3 

-7.58E-01 

-3.49E-02 

-7.52E-01 

-3.71 E-02 

-7.59E-01 

-3.47E-02 

8 

4 

-7.22E-01 

4.01 E-02 

-7.40E-01 

4.15E-02 

-7.23E-01 

4.00E-02 

9 

1 

-7.99E-02 

1.54E-03 


1.54E-03 

-8.03E-02 

1.55E-03 

9 

2 

-3.92E-01 

-6.29E-03 

-3.98E-01 

-6.00E-03 

-3.93E-01 

-6.36E-03 

9 

3 

-5.36E-01 

-2.30E-03 

-5.49E-01 

-3.09E-03 

-5.36E-01 

-2.12E-03 

9 

4 

8.19E-01 

-2.02E-02 

8.15E-01 

-2.01 E-02 

8.16E-01 

-2.00E-02 

10 

1 

6.02E-01 

1.46E-02 

6.00E-01 

1.47E-02 

6.02E-01 

1.46E-02 

10 

2 

-5.73E-01 

-1.03E-01 

-5.78E-01 

-1.05E-01 

-5.73E-01 

-1.03E-01 

10 

3 

9.46E-01 

-2.23E-03 

9.46E-01 

-2.53E-03 

9.45E-01 

-2.50E-03 

10 

4 

4.25E-01 

-2.46E-02 

4.34E-01 

-2.51 E-02 

4.23E-01 

-2.43E-02 

11 

1 

-8.01 E-02 

1.65E-03 

-8.07E-02 

1.65E-03 

-8.06E-02 

1.66E-03 

11 

2 

-4.03E-01 

-8.92E-03 

-4.09E-01 

-8.63E-03 

-4.04E-01 

-8.95E-03 

11 

3 

-5.73E-01 

-8.67E-03 

-5.88E-01 

-9.61 E-03 

-5.72E-01 

-8.31 E-03 

11 

4 

1.00E+00 

0.00E+O0 

1.00E+00 

0.00E+00 

1.00E+00 

0.00E+00 

12 

1 

1.00E+00 

0.00E+00 

1.00E+00 

0.0OE+0O 

1.00E+00 

0.00E+00 

12 

2 

1.01E+00 

3.04E-03 

1.01E+00 

3.00E-03 

1.01E+00 

2.96E-03 

12 

3 

-7.00E-01 

6.91 E-02 

-7.01E-01 

7.14E-02 

-7.00E-01 

6.93E-02 

12 

4 

-2.53E-01 

2.53E-02 

-2.59E-01 

2.55E-02 

-2.53E-01 

2.50E-02 




87 - 


TABLE XV 


EIGENVALUES OF 12-BAR TRUSS 
5-MODE CORRELATION 
METHOD1, 95 MODEL 


i 


TEST 

EIGENVALUES IN Hz 

MODE 

REAL 

IMAGINARY 

1 

-4.62E+02 

1.02E+03 

2 

-3.78E+02 

-3.80E+03 

3 

-3.33E+02 

-5.91 E+03 

4 

-2.48E+02 

-9.93E+03 

5 

-2.90E+02 

1.74E+04 



CORRELATED 
EIGENVALUES IN Hz 

MODE 

REAL 

IMAGINARY 

1 

-4.65E+02 

-1.03E+03 

2 

-3.84E+02 

3.86E+03 

i 3 

-3.36E+02 

5.98E+03 

4 

-2.57E+02 

1.01 E+04 

5 

-2.96E+02 | -1.78E+04 | 




TABLE XVI 


EIGENVELOCITIES OF 12-BAR TRUSS 
5-MODE CORRELATION 
METHOD 1, 95 MODEL 



TEST 

ANALYSIS 

F CORRELATED | 


MODE 

REAL 

IMAGINARY 

REAL 

IMAGINARY 

REAL 


1 

1 

7.03E-02 

1.91E-03 

7.07E-02 

1.95E-03 

7.08E-Q2 

-2.04E-03 | 

i 

2 

-1.35E-01 


-1.41E-01 

mEsssm 

1.29E-01 

1.15E-03 

i 

3 

-2.14E-01 

7.74E-03 

-2.19E-01 

7.51E-03 

2.20E-01 

2.12E-03 

i 

4 

5.42E-01 

-2.27E-Q2 

5.43E-01 

-2.29E-02 

5.44E-01 

2.43E-02 

i 

5 

-3.06E-01 

-1.68E-02 

EH 

-1.74E-02 

-3.01 E-01 

1.86E-02 

2 

1 

2.28E-01 

1.08E-02 

2.26E-01 

1.08E-02 

2.25E-01 

■BH 

2 

2 

-1.09E+00 

-7.51E-02 

-1.09E+00 

-7.58E-02 


1.22E-03 

2 

3 

-7.17E-01 

-3.10E-02 

-7.11E-01 

-3.32E-02 

6.83E-01 

-5.10E-02 

2 

4 

-6.12E-01 

3.92E-02 

-6.26E-01 

4.03E-02 

-6.42E-01 

-4.22E-02 

2 

5 

-4.70E-02 

-4.60E-03 

-4.606-02 

-4.59E-03 

-4.62E-02 

4.44E-03 | 

3 

1 

8.46E-02 

-5.33E-05 

8.5 IE-02 

-6.00E-05 

8.56E-02 

-4.99E-04 

3 

2 

2.26E-02 

7.22E-03 

1.96E-02 

7.77E-03 

-1.51E-02 

6.75E-03 

3 

3 

-6.38E-01 

2.21E-02 

-6.52E-01 

2.22E-02 

6.46E-01 

5.43E-03 

3 

4 

8.1 IE-01 

-2.59E-G2 

8.10E-01 

-2.56E-02 

8.09E-01 

2.79E-02 

3 

5 

-7.94E-01 

-3.26E-02 

-7.92E-01 

-3.42E-02 

-7.92E-01 

mm Km 

4 

1 

6.03E-01 

1.47E-02 

6.02E-01 

1.47E-02 

6.01E-01 

mM*rm 

4 

2 

-5.86E-01 

-1.06E-01 

-5.91E-01 

-1.08E-01 

5.38E-01 


4 

3 

1.00E+00 

0.00E+00 

1.00E+00 

O.OOE+OO 

KO 

2.55E-02 

4 

4 

5.01 E-01 

-2.52E-02 

5.13E-01 

-2.55E-02 

5.25E-01 

2.74E-02 

4 

5 

-6.83E-02 

3.39E-03 

-6.82E-02 

3.64E-03 

-6.84E-02 

-3.55E-03 

5 

1 

9.86E-02 

-2.26E-03 

9.93E-02 

-2.32E-03 

MESSM 

1.7 IE-03 

5 

2 

1.80E-01 

2.36E-02 

1.79E-01 

2.49E-02 

-1.58E-01 

1.19E-02 

5 

3 

-9.94E-01 

2.64E-02 

-1.01E+00 

2.64E-02 

1.00E+00 

0.00E+00 

5 

4 

8.37E-01 

BH^I 

8.28E-01 

-7.89E-03 

8.24E-01 

9.33E-03 










































































































































































CONTINUATION OF TABLE XVI 


EIGEN VELOCITIES OF 12-BAR TRUSS 
5-MODE CORRELATION 
METHOD 1, 95 MODEL 


1 

Tisi | 

ANALYSIS ““1 

CORF 

[ELATED 

D.O.F 

MODE 

REAL 


REAL 


REAL 

IMAGINARY 

5 

5 

-5.50E-01 

6.2 IE-03 

-5.37E-01 

6.36E-03 

-5.37E-01 

-6.42E-03 

6 

1 

9.99E-01 

6.37E-04 

9.99E-01 

6.14E-04 

9.99E-01 

-6.52E-04 

6 

2 

1.00E+00 

O.OOE+OO 

1.00E+00 

0.00E+00 

-8.94E-01 

-6.03E-02 

6 

3 

-6.77E-01 

7.04E-02 

-6.77E-01 

7.26E-02 

6.60E-01 

6.12E-02 

6 

4 

-2.30E-01 

2.56E-02 

-2.35E-01 

2.57E-02 

-2.40E-01 

-2.72E-02 

6 

5 

2.23E-01 

1.70E-02 

2.20E-01 

1.70E-02 

2.21 E-01 

-1.73E-02 

7 

1 

-4.00E-02 

7.12E-04 

-4.03E-02 

7.13E-04 

-4.05E-02 

-4.70E-04 

7 

2 

-2.00E-01 

-2.32E-03 

-2.04E-01 

-2.13E-03 

1.85E-01 

1.12E-02 

7 

3 

-2.83E-01 

5.86E-04 

-2.90E-01 

2.69E-04 

2.88E-01 

-6.68E-03 

7 

4 

4.82E-01 

-1.61E-02 

4.81 E-01 

-1.63E-02 

4.81E-01 

1.67E-02 

7 

5 

4.12E-01 

4.22E-02 

4.09E-01 

4.32E-02 

4.08E-01 

-4.55E-02 

8 

1 

2.28E-01 

1.08E-02 

2.26E-01 

1.08E-02 

2.25E-01 

-9.74E-03 

8 

2 

-1.11E+00 

-7.8 IE-02 

-1.11E+00 

-7.89E-02 

1.00E+00 

0.00E+00 

8 

3 

-7.58E-01 

-3.49E-02 

-7.52E-01 

-3.7 IE-02 

7.21 E-01 

-5.59E-02 

8 

4 

-7.22E-01 

4.0 IE-02 

-7.40E-01 

4.15E-02 

-7.58E-01 

-4.36E-02 

8 

5 

-8.76E-02 

-6.89E-03 

-8.74E-02 

-7.06E-03 

-8.75E-02 

7.01 E-03 

9 

1 

-7.99E-02 

1.54E-03 

-8.05E-02 

1.54E-03 

-8.07E-02 

-1.23E-03 

9 

2 

-3.92E-01 

-6.29E-03 

-3.98E-01 

-6.00E-03 

3.61 E-01 

2.02E-02 

9 

3 

-5.36E-01 

-2.30E-03 

-5.49E-01 

-3.09E-03 

5.44E-01 

-1.62E-02 

9 

4 

8.19E-01 

-2.02E-02 

8.15E-01 

-2.01 E-02 

8.14E-01 

2.08E-02 

9 

5 

4.44E-01 

3.27E-02 

4.33E-01 

3.26E-02 

4.33E-01 

-3.40E-02 

10 

1 

6.02E-01 

1.46E-02 

6.00E-01 

1.47E-02 

6.00E-01 

-1.37E-02 

10 

2 

-5.73E-01 

-1.03E-01 

-5.78E-01 

-1.05E-01 

5.25E-01 

-5.53E-02 

10 

3 

9.46E-01 

-2.23E-03 

-2.59E-01 

2.55E-02 

-9.17E-01 

2.16E-02 



CONTINUATION OF TABLE XVI 


EIGENVELOCITIES OF 12-BAR TRUSS 
5-MODE CORRELATION 
METHOD 1, 95 MODEL 



I TEST 

i ANALYSIS | CORRELATED 1 

mssm 

MODE 

REAL 

IMAGINARY 

REAL 


REAL 


10 

4 

4.25E-01 

-2.46E-02 

4.34E-01 

-2.51E-02 

4.45E-01 

2.69E-02 

10 

5 

-3.67E-02 

1.22E-03 

EEBEl 

1.24E-03 

Essa 

-1.01E-03 

11 

1 

-8.01E-02 

1.65E-03 

-8.07E-02 

1.65E-03 

-8.12E-02 

-1.06E-03 

11 

2 

-4.03E-01 


-4.09E-01 

WBMsm 

3.73E-01 

1.85E-02 

11 

3 

-5.73E-01 

WBMSm 

iMJ 

-9.61E-03 

5.84E-01 

-2.36E-02 

11 

4 

1.00E+00 

O.OOE+OO 

1.00E+00 

O.OOE+OO 

1.00E+00 

O.OOE+OO 

11 

5 

1.00E+00 

0.00E+00 

1.00E+00 

O.OOE+OO 


0.00E+00 

12 

1 


0.00E+00 


O.OOE+OO 

“doE+bo 

O.OOE+OO 

12 

2 

1.01E+00 

3.04E-03 

l.dlE+00 

3.00E-03 

-9.06E-01 

-5.86E-02 

! 12 

3 

-7.00E-01 

6.91E-02 

-7.01 E-01 

7.14E-02 

6.82E-01 

4.94E-02 

12 

4 

-2.53E-01 

2.63E-02 

-2.59E-01 

2.55E-02 

-2.64E-01 

-2.71E-02 

12 

5 

3.09E-01 

1.65E-02 

3.08E-01 

1.67E-02 

3.09E-01 

-1.71E-02 
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IMAGINARY 


Figure 26: Orthogonality Condition Of 12-BAR Truss Based On Eqn. (3.10), 
Correlated Modal Properties, and Test Spatial Properties 
5 Mode System Identification Of 95 Model Using Method 1 












4.6.2 Results for 12— BAR Truss, 95 Model, Method 2 


Although the system identification for the 90 model has been performed with 
the entire range of available modes (two to five modes), only the lower and upper bonds 
of the these computer runs will be presented here. 

1) Method 2, Two-Mode System Identification: The results of this computer run 
are documented in tables XVII and XVIII. Table XVII indicates that the 
improvements of the first and second eigenvalues are 100 percent. Also, the 
eigen velocities in table XVIII show the same improvements, that is, nearly 100 
percent improvement over the analytical results for the first and second modes. 
Overall, the results of the two-mode system identification appear quite satisfactory. 

2) Method 2, Five-Mode System Identification: The results of this computer run 
are documented in figures 27 and 28, and in tables XIX and XX. Table XIX 
indicates that the improvements of the first, second, third, fourth, and fifth 
eigenvalues are 100 percent. Also, the eigen velocities in table XX show the same 
improvements, that is, nearly 100 percent improvement over the analytical results 
for the first, second, third, fourth, and fifth modes. Because both the stiffness and 
damping matrices are correlated in method 2, the orthogonality conditions based on 
equations (3.10) and (3.11) are presented pictorially. Figure 27 shows the 
orthogonality condition matrix based on equation (3.10) and figure 28 shows the 
orthogonality condition matrix based on equation (3.11). According to these 
figures all the off-diagonal terms are near zero, except for one term, 1-S2. If 
smaller off-diagonal terms in the orthogonality condition matrices are desired, then 
either the tolerances for the convergence criteria in method 2 should be lessened, or 
a convergence criterion based on off-diagonal terms should be added. However, 
the down side of lessening the tolerances for the convergence criteria, or adding a 
convergence criterion for the off-diagonal terms of the orthogonality condition 
matrices, requires more iterations and longer computer usage time. Overall, the 
results of the five-mode system identification appear quite satisfactory. 
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TABLE XVII 


EIGENVALUES OF 12-BAR TRUSS 
2-MODE CORRELATION 
METHOD 2, 95 MODEL 



CORRELATED 
EIGENVALUES IN Hz 


REAL 

IMAGINARY 

1 

-4.62E+02 

1.02E+03 

2 

-3.78E+02 

-3.80E+03 

3 

XXX 

XXX 

4 

XXX 

XXX 

5 

XXX 

XXX 


ANALYSIS 
EIGENVALUES IN Hz 


REAL 

IMAGINARY 

1 

-4.74E+02 

1.02E+03 

2 

-3.86E+02 

-3.83E+03 

3 

XXX 

XXX 

4 

XXX 

XXX 

5 

XXX 

XXX 


TEST 

EIGENVALUES IN Hz 


REAL 

IMAGINARY 

1 

-4.62E+02 

1.02E+03 

2 

-3.78E+02 

-3.80E+03 

3 

XXX 

XXX 

4 

XXX 

XXX 

5 

XXX 

XXX 
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TABLE XVIII 


EIGENVELOCITIES OF 12-BAR TRUSS 
2-MODE CORRELATION 
METHOD 2, 95 MODEL 


1 

TEST 1 

ANALYSIS | 

CORRELATED | 

EE9 

MODE 

REAL 

IMAGINARY 

REAL 

IMAGINARY 

REAL 

IMAGINARY 

l 

1 

1.28E-01 

8.47E-03 

1.27E-01 

8.25E-03 

1.28E-01 

8.47E-03 

i 

2 

-1.69E-01 


-1.62E-01 


-1.68E-01 


2 

1 

4.10E-01 

3.53E-02 

4.11E-01 

3.51 E-02 

4.12E-01 

3.54E-02 

2 

2 

-1.30E+00 

-6.91 E-02 

-1.30E+00 

-6.85E-02 i 

-1.30E+00 

-6.98E-02 

3 

1 

1.55E-01 

5.82E-03 

1.53E-01 

5.67E-03 

1.54E-01 

5.89E-03 

3 

2 

2.36E-02 

8.91E-03 

2.72E-02 

8.21E-03 

2.37E-02 

7.59E-03 

4 

1 

1.09E+00 

6.86E-02 

1.09E+00 

6.77E-02 

1.09E-KJ0 

6.81E-02 

4 

2 

-7.09E-01 

-1.18E-01 

-7.05E-01 

-1.16E-01 

-7.06E-01 

-1.15E-01 

5 

1 

1.81E-01 

2.69E-03 

1.79E-01 

2.63E-03 

1.80E-01 

2.86E-03 

5 

2 

2.15E-01 

2.62E-02 

2.16E-01 

2.47E-02 

2.15E-01 

2.40E-02 

6 

1 

1.81E+00 

7.06E-02 

1.81E+00 

6.92E-02 

1.81E-KX? 

7.02E-02 

6 

2 

1.20E+00 

-1.99E-02 

1.20E+00 

-1.97E-02 


-2.00E-02 

7 

1 

-7.32E-02 

■MUM 

-7.24E-02 

-1.44E-03 

-7.26E-02 

-1.40E-03 

7 

2 

-2.44E-01 

1.50E-03 

-2.40E-01 

1.17E-03 

-2.43E-01 

6.66E-04 

8 

1 

4.10E-01 

3.54E-02 

4.12E-01 

3.5 IE-02 

4.12E-01 

3.55E-02 

; e 

2 

-1.33E+00 

-7.23E-Q2 

-1.33E+00 

1 -7.17E-02 

-1.33E+00 

-7.32E-02 

9 

1 

-1.46E-01 

-2.80E-03 

-1.45E-01 

1 -2.66E-03 

-1.45E-01 

-2.60E-03 

9 

2 

-4.76E-01 

7.31E-04 

-4.70E-01 

1.95E-04 

-4.76E-01 

-7.69E-04 

10 

1 

1.09E+00 

6.85E-02 

1.09E+00 

6.76E-02 

1.09E+00 

6.79E-02 

10 

2 

-6.93E-01 

-1.15E-01 

-6.89E-01 

-1.12E-01 

-6.90E-01 

-1.12E-01 

11 

1 

-1.47E-01 

-2.63E-03 

-1.45E-01 

-2.48E-03 

-1.46E-01 

-2.40E-03 

11 

2 

-4.90E-01 

-2.19E-03 

-4.83E-01 

-2.73E-03 

-4.90E-01 


12 

1 

1.82E+00 

6.96E-02 

1.81E+00 

6.82E-02 

1.81E+00 

6.91 E-02 

12 

2 

1.21E+00 

mmwm 

1.21E+00 

-1.64E-02 

1.21E+00 

-1.65E-02 
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TABLE XIX 


EIGENVALUES OF 12-BAR TRUSS 
5-MODE CORRELATION 
METHOD 2, 95 MODEL 


i 


E 

TEST 

GENVALUES IN Hz 

MODE 

REAL 


1 

-4.62E+02 

1.02E+03 

2 

-3.78E+02 

-3.80E+03 

3 

-3.33E+02 

-5.91 E+03 

4 

-2.48E+02 

-9.93E+03 

5 

-2.90E+02 

1.74E+04 


ANALYSIS 


EIGENVALUES IN Hz 



REAL 

IMAGINARY 

1 

-4.74E+02 

1.02E+03 

2 

-3.86E+02 

-3.83E+03 

3 

-342E+02 | -5.94E+03 | 

4 

-2.55E+02 

-1.00E+04 1 


5 I -2.96E+02 | 1.76E+Q4 | 



CORRELATED 

| EIGENVALUES IN Hz | 

MODE 

REAL 

IMAGINARY 

1 

-4.62E+02 

1 .02E+03 

2 

-3.78E+02 

-3.80E+03 

3 

-3.33E+02 

-5.91 E+03 1 

4 

-2.48E+02 

-9.93E+03 ! 

5 

-2.90E+02 

1.74E+04 




96 - 


TABLE XX 


EI6ENVELOCITIES OF 12-BAR TRUSS 
5-MODE CORRELATION 
METHOD 2, 95 MODEL 


1 

TEST ! 

ANALYSIS | CORRELATED 1 

D.O.F 

MODE 

REAL 

IMAGINARY 

REAL 


REAL 


1 

1 

2.07E-01 

5.64E-03 

2.09E-01 

5.82E-03 

2.08E-01 

5.71E-03 

1 

2 

-2.65E-01 

-3.74E-03 

-2.76E-01 

-3.45E-03 

-2.70E-01 

-4.05E-03 

1 

3 

-3.96E-01 

6.87E-03 

-4.03E-01 

6.31E-03 

-3.89E-01 

6.52E-03 

1 

4 

1.11E+00 

4.97E-03 

1.11E400 

5.32E-03 

l.llE+OO 

5.46E-03 

1 

5 

-9.91 E-01 

-3.06E-02 

-9.87E-01 

-3.25E-02 

-9.83E-01 

-2.78E-02 

2 

1 

6.72E-01 

3.19E-02 

6.69E-01 

3.21E-02 

6.71 E-01 

3.18E-02 

2 

2 

-2.12E+00 

-3.16E-02 

-2.13E+00 

-3.16E-02 

-2.12E+00 

-3.15E-Q2 

2 

3 

-1.32E+00 

-8.22E-Q2 

-1.31E+00 

-8.56E-02 

-1.32E+00 

-8.19E-02 

2 

4 

-1.26E+00 

2.22E-02 

-1.28E+00 

2.23E-02 

-1.25E+00 

2.23E-02 

2 

5 

-1.53E-01 

-1.12E-02 

-1.51E-01 

-1.13E-02 

-1.50E-01 

-1.14E-02 ; 

3 

1 

2.49E-01 

-1.62E-04 

2.52E-01 

-1.34E-04 

2.49E-01 

-2.06E-04 

3 

2 

4.49E-02 

1. 17E-02 

3.90E-02 

1.30E-02 

4.48E-02 

1.16E-02 

3 

3 

-1.18E+00 

1.87E-02 

-1.20E+00 

1.85E-02 

-1.18E+00 

1.84E-02 

! 3 

4 

1.67E+00 

2.40E-02 

1.66E+00 

2.52E-02 

1.67E+00 

2.40E-02 

3 

5 

-2.58E+00 

-4.39E-02 


-4.78E-02 

-2.59E+00 

-4.32E-02 

4 

1 

1.78E-KX) 

4.33E-02 

1.78E+00 

4.38E-02 

1.78E+00 

4.33E-02 

4 

2 

-1.15E+00 

-1.45E-01 

-1.16E+00 

-1.48E-01 

-1.15E+00 

-1.44E-01 

4 

3 

1.85E+00 

3.47E-02 

1.84E+00 

3.44E-02 

1.85E+00 

3.45E-02 

4 

4 

1.03E+00 

-4.01 E-03 

1.05E+00 

-2.91E-03 

1.03E+00 

-4.52E-03 

4 

5 

-2.21E-01 

1.63E-02 

-2.23E-01 

1.75E-02 

-2.22E-01 

1.59E-02 

5 

1 

2.91 E-01 

-6.68E-03 

2.94E-01 

-6.83E-03 

2.90E-01 

-6.79E-03 

5 

2 

3.53E-01 

2.70E-02 

3.52E-01 

2.93E-02 

3.58E-01 

2.72E-02 

5 

3 

-1.84E+00 

1.44E-02 

-1.87E+00 

1.38E-02 

-1.84E+00 

1.47E-02 

5 

4 

1.72E+00 

6.09E-02 

1.69E+00 

6.32E-02 

1.71E+00 

5.97E-02 




CONTINUATION OF TABLE XX 


EIGENVELOCITIES OF 12-BAR TRUSS 
5-MODE CORRELATION 
METHOD 2, 95 MODEL 


1 

TEST | 

“ ANALYSIS | 

CORK 

(ELATED 

MESM 

MODE 

REAL 


REAL 

IMAGINARY 

REAL 

IMAGINARY 


5 

-1.78E+00 

6.27E-02 

-1.76E+00 

6.46E-02 

-1.76E+00 

6.14E-02 

6 

1 

2.95E+00 

1.82E-03 

2.96E+00 

2.33E-03 

2.94E+00 

1.89E-03 

6 

2 

1.95E+00 

-1.06E-01 

1.95E+00 

-1.07E-01 

1.95E+00 

-1.06E-01 

6 

3 

-1.25E+00 

1.07E-01 

-1.25E+00 

1.10E-01 

-1.25E+00 

1.07E-01 

6 

4 

-4.74E-01 

3.06E-02 

-4.82E-01 

3.01 E-02 

-4.73E-01 

3.09E-02 

6 

5 

7.23E-01 

3.77E-02 

7.23E-01 

3.78E-02 

7.17E-01 

3.80E-02 

7 

1 1 

-1.18E-01 

2.10E-03 

-1.19E-01 

2.09E-03 

-1.18E-01 

2.13E-03 

7 

2 

-3.91E-01 

1.66E-02 

-3.97E-01 

1.76E-02 

-3.90E-01 

1.65E-02 

7 

3 

-5.23E-01 

-8.73E-03 

-5.35E-01 

-9.49E-03 

-5.22E-01 

-8.58E-03 

7 

4 

9.89E-01 

1.26E-02 

9.85E-01 

1.27E-02 

9.89E-01 

1.28E-02 I 

7 

5 

1.34E+00 

1.05E-01 

1.34E+00 

1.08E-01 | 

1.34E+00 

1.08E-01 

8 

1 

6.73E-01 

3.19E-02 

6.71E-01 

3.2 IE-02 

6.72E-01 

3.18E-02 

8 

2 

-2.17E+00 

-3.50E-02 

-2.18E+00 

-3.48E-02 

-2.17E+00 

-3.51 E-02 

8 

3 

-1.40E+00 

-9.08E-02 

-1.38E+00 

-9.42E-02 

-1.40E+00 

-9.09E-02 

8 

4 

-1.48E+00 

1.37E-02 

-1.52E+00 

1.40E-02 

-1.49E+00 

MESSm 

8 

5 

-2.84E-01 

-1.55E-02 

-2.87E-01 

-1.60E-02 

-2.85E-01 

-1.60E-02 

9 

1 

-2.36E-01 

4.54E-03 

-2.38E-01 

4.53E-03 

-2.36E-01 

4.57E-03 

9 

2 

-7.65E-01 

2.91E-CG 

-7.76E-01 

3.08E-02 

-7.65E-01 

2.89E-02 

9 

3 


-2.28E-02 

-1.01E+00 

-2.46E-02 

-9.90E-01 

-2.27E-02 

9 

4 

1.68E+00 

3.64E-02 

1.67E+00 

3.70E-02 

1.68E+00 

3.65E-02 

i 9 

5 

1.44E+00 

7.14E4J2 

1.42E+00 

7.17E-02 

1.42E+00 

7.27E-02 

10 

1 

1.78E+00 

4.32E-02 

1.78E+00 


1.77E+00 

4.31 E-02 

id 

2 

-1.13E+00 

-1.41E-01 

-1.14E+00 

-1.43E-01 

-1.13E+00 


10 

3 

1.75E+00 

2.87E-02 

1.74E+00 

2.79E-02 

1.74E+00 

I 2.89E-02 | 
























































































































































































CONTINUATION OF TABLE XX 


EIGENVELOCITIES OF 12-BAR TRUSS 
5-MODE CORRELATION 
METHOD 2, 95 MODEL 


TEST I ANALYSIS I CORRELATED I 


D.O.F 

MODE 

REAL 


REAL 


10 

4 

8.74E-01 

-9.94E-03 

8.90E-01 

-9.74E-03 

8.71E-01 

-9.87E-03 

10 

5 

-1.19E-01 

6.78E-03 

-1.18E-01 

7.01 E-03 

-1.17E-01 

6.64E-03 

11 

1 

-2.36E-01 

4.86E-03 

-2.39E-0V 

4.83E-03 

-2.35E-01 

4.82E-03 

11 

2 

-7.86E-01 

2.52E-02 

-7.98E-01 

2.69E-02 

-7.84E-01 

2.48E-02 

11 

3 

-1.06E+00 

-3.59E-02 

-1.08E+00 

-3.79E-02 

-1.06E+00 

-3.53E-02 

11 

4 

2.05E+00 

9.49E-02 

2.04E+00 

9.58E-02 

2.05E+00 

9.55E-02 

ii 

5 

3.24E+00 

-7.75E-02 

3.28E+00 

-8.14E-02 

3.27E*00 

-7.81E-02 

12 

1 

2.95E+00 

-6.Q2E-05 


5.13E-04 

2.95E+00 

-8.01 E-05 

12 

2 

1.98E+00 

-1.01E-01 

1.97E+00 

-1.02E-01 

1.97E+00 

-1.01E-01 

12 

3 

-1.30E+00 

1.03E-01 

-1.29E+00 

1.08E-01 

-1.29E+00 

1.03E-01 

12 

4 

-5.22E-01 

2.79E-02 

-5.32E-01 

2.73E-02 

-5.22E-01 

2.81E-02 

12 

5 

1.00E+00 

2.95E-02 

1.01E+00 

2.98E-02 

1.00E+00 

2.96E-02 




B.00E-06 

6.00E-06 

4.00E-06 

2.00E-06 

O.OOE+OO 


2.00E-06 


-4.00E-06- 

•6.00E-06- 

-8.00E-06 



2.00E-02 


1.50E-02 


1.00E-02 


5.00E-03 


O.OOE+OO 


-5.00E-03 


-1.00E-02 


38eB 



IMAGINARY 


Figure 28: Orthogonality Condition Of 12-BAR Truss Based On Eqn. (3.11), 
Correlated Modal Properties, and Test Spatial Properties 
5 Mode System Identification Of 95 Model Using Method 2 








4.6.3 Results for 12-BAR Truss, 90 Model, Method 1 


1) Method 1, Two-Mode System Identification: The results of this computer run 
are documented in tables XXI and XXII. Table XXI indicates that the 
improvements of the first and second eigenvalues are 100 percent. However, the 
imaginary portion of the first mode has worsened somewhat. Also, the 
eigenvelocities in table XVIII show the same improvements, that is, nearly 100 
percent improvement over the analytical results for the first and second modes. 
Overall, the results of the two-mode system identification appear quite satisfactory. 

2) Method 1, Five-Mode System Identification: The results of this computer run 
are documented in tables XXIII and XXIV. Table XXIII indicates that there is a 
general improvement of the real portions of the second, third, and fourth 
eigenvalues. However, the magnitudes of the rest of the eigenvalues have 
worsened. Also, the eigenvelocities in table XVIII show some occasional 
improvement, but in general the eigenvelocities have worsened. Overall, the 
results of the five-mode system identification is unsatisfactory. 


- 101 - 



TABLE XXI 


EIGENVALUES OF 12-BAR TRUSS 
2-MODE CORRELATION 
METHOD 1, 90 MODEL 


i 

f— * 

S 

i 


TEST 

EIGENVALUES IN Hz 


REAL 

IMAGINARY 

l 

-4.50E+02 

1.02E+03 

2 

-3.69E+02 

-3.76E+03 

3 

XXX 

XXX 

4 

XXX 

XXX 

5 

XXX 

XXX 



ANALYSIS 1 

EIGENVALUES IN Hz | 

|MODE 

REAL 


I 1 | -4.74E+02 1 1.02E+03 | 

2 

-3.86E+02 | -3.83E+03 | 

3 

XXX 

XXX 

4 

XXX 

XXX 

5 

XXX 

XXX 



CORRELATED I 

f EIGENVALUES IN Hz | 

E5H3 

REAL 

IMAGINARY | 

| 1 | -4.58E+02 | -1.04E+03 | 

2 


3 

XXX 

XXX 

4 

XXX 

XXX 

5 

XXX 

XXX 




















































TABLE XXII 


EIGENVELOCITIES OF 12-BAR TRUSS 
2-MODE CORRELATION 
METHOD 1, 90 MODEL 


1 

TEST 

ANALYSIS | CORRELATED | 

EE29 

MODE 

REAL 

IMAGINARY 



REAL 

IMAGINARY 

i 

1 

6.99E-02 

1.87E-03 

7.07E-02 

1.95E-03 

7.04E-02 

-1.58E-03 

i 

2 

-1.28E-01 

MEsasm 

-1.41E-01 

■asgsai 

-1.38E-01 

■Mg*» 

2 

1 

2.30E-01 

1.08E-02 

2.26E-01 

1.08E-02 

2.24E-01 

-8.46E-03 

2 

2 

-1.07E+00 

-7.00E-02 

-1.09E+00 

-7.58E-02 

-1.06E+00 

-6.85E-02 

3 

1 

8.40E-02 

-4.70E-05 

8.51E-02 

-6.00E-05 

8.50E-02 

1.99E-04 

3 

2 

2.53E-02 

6.53E-03 

1.96E-02 

7.77E-03 

1.98E-02 

7.50E-03 

4 

1 

6.05E-01 

1.47E-02 

6.02E-01 

1.47E-02 

6.00E-01 

-1.27E-02 

4 

2 

-5.74E-01 

-1.01 E-01 

-5.91 E-01 

-1.08E-01 

-5.76E-01 

-1.02E-01 

5 

1 

9.78E-02 

-2.20E-03 

9.93E-02 

-2.32E-03 

9.95E-02 

2.23E-03 

5 

2 

■WITglM 

2.15E-02 

1.79E-01 

2.49E-02 

1.76E-01 

2.34E-02 

6 

1 

9.99E-01 

6.60E-04 

9.99E-01 

6.14E-04 

9.99E-01 

-6.01E-04 

6 

2 

9.87E-01 

-2.99E-03 

1.00E+00 

0.00E+00 

9.86E-01 

-2.85E-03 

7 

1 

-3.97E-02 

WBE3EM 

wasssza 

7.13E-04 

-4.06E-02 

-4.09E-04 

7 

2 

-1.95E-01 

-1.88E-03 

-2.04E-01 

-2.13E-03 

-2.00E-01 

-1.29E-03 

8 

1 

2.30E-01 

1.08E-02 

2.26E-01 


2.24E-01 


8 

2 

-1.09E+00 

-7.30E-02 

-1.11E+00 

-7.89E-02 

-1.09E+00 

-7.13E-02 | 

9 

1 

-7.92E-02 

1.53E-03 


1.54E-03 

EiS 


9 

2 

-3.81E-01 

-5.32E-03 

-3.98E-01 

-6.00E-03 

-3.91 E-01 

-4.29E-03 

10 

1 

6.04E-01 

1.46E-02 

6.00E-01 

1.47E-02 

5.98E-01 

-1.27E-02 

10 

2 

1MI 

WEEE3BM 

E«l 

-1.05E-01 

-5.63E-01 


11 

1 

-7.95E-02 

1.64E-03 


1.65E-03 

ci mm 

-1.04E-03 

11 

2 

-3.91 E-01 

-7.87E-03 


-8.63E-03 

-4.02E-01 

-6.78E03 

12 

1 

1.00E+00 

0.00E+00 

1.00E+00 

0.00E+00 

1.00E+00 

0.00E+00 

12 

2 

1.00E+00 

0.00E+00 

1.01E+00 

3.00E-03 

1.00E+00 

0.00E+00 







































































































































































TABLE XXIII 


EIGENVALUES OF 12-BAR TRUSS 
5-MODE CORRELATION 
METHOD1, 90 MODEL 


TEST 

EIGENVALUES IN Hz 


m 


REAL 


IMAGINARY 


1 | -4.50E+02 

-3.69E+02 
-3.25E+02 


1.02E+03 


5.87E+03 


-2.41E+02 


-9.84E+03 


-2.83E+02 


1.72E+04 


CORRELATED 
EIGENVALUES IN Hz 

'MESS . 1 

REAL 1 IMAGINARY 1 

l 

-4.57E+02 I -1.04E+03 

2 


3 


I 4 | -249E+02 | 1.02E+04 | 

1 « 



| ANALYSIS 

| EIGENVALUES IN Hz 

1 MODE | REAL | IMAGINARY 

1 

■ JE5L MTE1 1 5 SU 

2 


3 


4 


5 

1 -2.96E+02 | 1.76E+04 | 



















































TABLE XXIV 


EIGENVELOCITIES OF 12-BAR TRUSS 
5-MODE CORRELATION 
METHOD 1, 90 MODEL 


1 

— jest •“] 

ANALYSIS | 

CORRELATED | 

MSSM 

MODE 

H9 


REAL 

IMAGINARY 

REAL 

IMAGINARY 

l 

1 

6.99E-02 

1.87E-03 i 

7.07E-02 

1.95E-03 

7.09E-02 

-2.1 IE-03 

i 

2 

-1.28E-01 


-1.41E-01 

msEsasm 

1.31 E-01 

1.51E-03 

i 

3 

-2.09E-01 

-7.92E-03 

2.16E-01 

1.78E-03 

2.26E-01 

-5.54E-03 


4 

5.40E-01 

-2.25E-02 

5.43E-01 

-2.29E-02 

5.45E-01 

2.60E-02 

i 

5 

-3.11 E-01 

-1.61E-02 

-3.01 E-01 

-1.74E-02 

-3.01 E-01 

2.01 E-02 

2 

1 

2.30E-01 

1.08E-02 

2.26E-01 

1.08E-02 

2.24E-01 


2 

2 

-1.07E+00 

-7.00E-Q2 

-1.09E+00 

-7.58E-02 

9.78E-01 

1.17E-03 

2 

3 

-7.23E-01 

2.89E-02 

mssasm 

-5.09E-02 

6.62E-01 

4.80E-02 

2 

4 

-5.98E-01 

3.81E-02 

-6.26E-01 | 

4.03E-02 

-6.57E-01 

Bsisiaai 

2 

5 

-4.80E-02 

-4.59E-03 


-4.59E-03 

-4.64E-02 

4.08E-03 

3 

1 

8.40E-02 

-4.70E-05 

8.51E-02 

-6.00E-05 

8.62E-02 

-1.09E-03 

3 

2 

2.53E-02 

6.53E-03 

1.96E-02 

7.77E-03 

-1.21E-02 

8.58E-03 

3 

3 

-6.24E-01 

-2.19E-02 

6.42E-01 

5.16E-03 

6.51 E-01 

-7.95E-03 

3 

4 


-2.61E-02 


-2.56E-02 

8.08E-01 

3.10E-02 

3 

5 

-7.97E-01 

-3.08E-02 

-7.92E-01 

-3.42E-02 

-7.92E-01 

3.87E-02 

4 

1 

6.05E-01 

1.47E-02 

6.02E-01 

1.47E-02 

6.00E-01 

-1.25E-02 

4 

2 

-5.74E-01 

-1.01E-01 

EHI 

-1.08E-01 

5.40E-01 

-5.91 E-02 

4 

3 

1.00E+00 

O.OOE+OO 


2.56E-02 

BO 

-3.49E-02 

4 

4 

4.89E-01 

-2.48E-02 

5.13E-01 

-2.55E-02 

5.35E-01 

2.76E-02 

4 

5 

-6.84E-02 

3.15E-03 

-6.82E-02 

3.64E-03 

-6.86E-02 

-3.23E-03 

5 

1 

9.78E-02 

-2.20E-03 

9.93E-02 

-2.32E-03 

1.00E-01 

1.04E-03 

5 

2 

1.78E-01 

2.15E-02 

1.79E-01 

2.49E-02 

-1.55E-01 

1.51E-02 

5 

3 

-9.73E-01 

-2.64E-02 

1.00E+00 

0.00E+00 

1.00E+00 

0.00E+O0 

5 

4 

8.45E-01 

-1.02E-02 

8.28E-01 

-7.89E-03 

8.21E-01 

1.21 E-02 
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CONTINUATION OF TABLE XXIV 


EIGENVELOCITIES OF 12-BAR TRUSS 
5-MODE CORRELATION 
METHOD 1,90 MODEL 




i TEST 

r ANALYSIS 

f CORRELATED | 

| ■ J 

MODE 

REAL 

IMAGINARY 

| REAL 


REAL 


5 

5 

-5.62E-01 

6.10E-03 

Emiii 

6.36E-03 

EMJ 

-6.04E-03 

6 

1 

9.99E-01 

6.606-04 

9.99E-01 

6.14E-04 

9.99E-01 

-6.89E-04 

6 

2 

9.87E-01 

-2.99E-03 

1.00E+00 

0.006+00 

-8.93E-01 

-5.30E-02 

6 

3 

-6.77E-01 

-6.83E-02 

6.69E-01 

5.41 E-02 

6.47E-01 

-3.88E-02 

6 

4 

-2.25E-01 

2.55E-02 

-2.35E-01 

2.57E-02 

-2.44E-01 

-2.76E-02 

6 

5 

2.26E-01 


2.20E-01 

1.70E-02 

2.22E-01 

-1.78E-02 

7 

1 

-3.97E-02 

7.12E-04 

-4.03E-02 

7.13E-04 

-4.07E-02 

-2.14E-04 

7 

2 

-1.95E-01 

-1.88E-03 

-2.04E-01 

-2.13E-03 

1.88E-01 

1.12E-02 

7 

3 

-2.75E-01 


2.86E-01 

-7.18E-03 

2.92E-01 

3.646-03 

7 

4 

4.82E-01 

mssasm 

4.81E-01 

-1.63E-02 

4.81E-01 

1.71E-02 i 

7 

5 

4.15E-01 

4.12E-02 

4.09E-01 

4.32E-02 

4.08E-01 

-4.81E-02 

8 

1 

2.30E-01 

1.08E-02 

2.26E-01 

1.08E-02 

2.24E-01 

mmsm 

8 

2 

-1.09E+00 

-7.30E-02 

PlUgMl 

-7.89E-02 

1.00E+00 

0.006+00 

8 

3 

-7.63E-01 

3.28E-02 

7.40E-01 

mm&m 

6.98E-01 

5.33E-02 

8 

4 

-7.03E-01 

3.87E-02 

-7.40E-01 


-7.74E-01 

-4.44E-02 

8 

5 

-8.79E-02 

-6.72E-03 

msE&m 

-7.06E-03 


6.73E-03 

9 

1 

-7.92E-02 

1.53E-03 

i 

1.54E-03 

EUliU 

msssm 

9 

2 

-3.81E-01 

-5.32E-03 

-3.98E-01 

-6.006-03 

3.66E-01 

2.01E-02 

9 

3 

-5.22E-01 

1.58E-03 

5.41E-01 


5.50E-01 

1.08E-02 

9 

4 

8.22E-01 

-2.02E-02 

8.15E-01 

-2.01 E-02 

8.13E-01 

2.18E-02 

9 

5 

4.56E-01 

3.27E-02 

4.33E-01 

3.26E-02 

4.32E-01 

-3.55E-02 

10 ; 

i ! 

^sasm 

1.46E-02 

6.00E-01 

1.47E-02 

5.99E-01 

-1.25E-02 

10 

2 

-5.61E-01 


-5.78E-01 

-1.05E-01 

5.27E-01 

-5.71 E-02 

10 | 

3 

9.47E-01 

1.94E-03 1 

-9.32E-01 

2.18E-02 

-8.97E-01 

-3.04E-02 







































































































































































CONTINUATION OF TABLE XXIV 


EIGENVELOCITIES OF 12-BAR TRUSS 
5-MODE CORRELATION 
METHOD 1, 90 MODEL 


1 

TEST 1 

ANALYSIS | 

CORRELATED | 

E Ml 

MODE 

REAL 


mmm 

IMAGINARY 

REAL 

IMAGINARY 

10 

4 

4.16E-01 

-2.40E-02 

4.34E-01 

-2.51E-02 

4.53E-01 

2.70E-02 

10 

5 

-3.74E-02 

1.18E-03 

-3.60E-02 

1.24E-03 

-3.64E-02 

-5.72E-04 

n 

1 

-7.95E-02 

1.64E-03 

-8.07E-02 

1.65E-03 

-8.17E-02 

-4.42E-04 

n 

2 

-3.91 E-01 

-7.87E-03 

msssm 


3.79E-01 

MKZZmi 

li 

3 

-5.58E-01 

7.80E-03 

5.79E-01 

-2.45E-02 

5.91 E-01 

1.79E-02 

n 

4 

1.00E+00 

0.00E+00 

1.00E+00 

0.00E+00 

1.00E+00 

0.00E+00 

n 

5 

1.00E+00 


1.00E+00 

0.00E+00 

ME23E2M 

0.00E+00 

12 

1 

1.00E+00 

0.00E+00 

1.00E+00 

0.00E+00 

1.00E+00 


12 

2 

1.00E+00 

O.OOE-KX) 

1.01E+00 

3.00E-03 

-9.06E-01 

-5.1 IE-02 

12 

3 


-6.68E-02 

6.92E-01 

5.24E-02 

6.69E-01 

-3.67E-02 

12 

4 

1 -2.48E-01 

2.52E-02 


2.55E-02 

-2.69E-01 

-2.76E-02 

12 

5 

■arngni 

1.63E-02 

3.08E-01 

1.67E-02 

3.10E-01 

-1.77E-02 


























































































4.6.4 Results for 12-BAR Truss, 90 Model, Method 2 


1) Method 2, Two-Mode System Identification: The results of this computer run 
are documented in tables XXV and XXVI. Table XXV indicates that the 
improvements of the first and second eigenvalues are 100 percent. Also, the 
eigen velocities in table XXVI show the same improvement, that is, nearly 100 
percent improvements over the analytical results for the first and second modes. 
Overall, the results of the two-mode system identification appear quite satisfactory. 

2) Method 2, Five-Mode System Identification: The results of this computer run 
are documented in tables XXVII and XXVIII. Table XXVII indicates that the 
improvements of the first, second, third, fourth, and fifth eigenvalues are near 100 
percent. Also, the eigenvelocities in table XXVm show the same improvements, 
that is, nearly 100 percent improvement over the analytical results for the first, 
second, third, fourth and fifth modes. Overall, the results of the five-mode system 
identification appear quite satisfactory. 


C*>|IO 


TABLE XXV 


EIGENVALUES OF 12-BAR TRUSS 
2-MODE CORRELATION 
METHOD 2, 90 MODEL 


I 


TEST 

EIGENVALUES IN Hz 

MODE 

REAL 


1 

-4.50E+02 

1.02E+03 

2 

-3.69E+02 

-3.76E+03 

3 

XXX 

XXX 

4 

XXX 

XXX 

5 

XXX 

XXX 


ANALYSIS 
EIGENVALUES IN Hz 


REAL 

IMAGINARY 

1 


1.02E+03 

2 

-3.86E+02 

-3.83E+03 

3 

XXX 

XXX 

4 

XXX 

XXX 

5 

XXX 

XXX 


CORRELATED 
EIGENVALUES IN Hz 

IM 

REAL 1 

IMAGINARY 

1 

gESBffia 

1.02E+03 

2 

-3.69E+02 

-3.76E+03 

3 

XXX 

XXX 

mm 

XXX 

XXX 

CJZ 

XXX 

XXX I 






















































TABLE XXVI 


EIGENVELOCITIES OF 12-BAR TRUSS 
2-MODE CORRECTION 
METHOD 2, 90 MODEL 



TEST 

ANALYSIS 

| CORRELATED | 


MODE 

■a 


REAL 


mmm 


1 

1 

1.25E-01 

7.66E-03 1 

1.28E-01 

8.47E-03 i 

1.27E-01 

1 7 95E-03 1 

1 

2 

-1.54E-01 

-7.83E-03 

-1.69E-01 


-1.66E-01 


2 

1 

4.10E-01 

3.35E-02 

4.10E-01 

3.53E-02 

4.10E-01 

3.37E-02 

2 

2 

-1.29E+00 

-6.41 E-02 

-1.30E+00 

-6.91E-02 

-1.28E+00 

-6.46E-02 

3 

1 

1.50E-01 

5.10E-03 

1.55E-01 

5.82E-03 

1.52E-01 

5.29E-03 

3 

2 

3.07E-Q2 

7.39E-03 

2.36E-02 

8.91E-03 

2.38E-02 

7.43E-03 

4 

1 

1.08E+00 

6.36E-02 

1.09E+00 

6.86E-02 

1.08E+00 

6.37E-02 

4 

2 

-6.94E-01 

-1.10E-01 

-7.09E-01 

-1.18E-01 

-6.95E-01 

-1.10E-01 

5 

1 

1.75E-01 

2.1 IE-03 

1.81E-01 

2.69E-03 

1.77E-01 

2.20E-03 

5 

2 

2.14E-01 

2.26E-02 

2.15E-01 

262E-02 

2.13E-01 

2.30E-02 

6 

1 

1.78E+00 

6.29E-G2 

1.81E+00 

7.06E-02 

1.79E+00 

6.32E-02 

6 

2 

1.19E+00 

-2.23E-02 

1.20E+00 

-1.99E-02 

1.19E+00 

-2.24E-02 

7 

1 

-7.10E-Q2 

-1.18E-03 

-7.32E-02 

■BW4Tg« 

-7.13E-02 

-1.13E-03 

7 

2 

-2.35E-01 

1.42E-03 

-2.44E-01 

1.50E-03 

-2.41 E-01 

1.32E-03 

8 

1 

4.10E-01 

3.36E-02 

4.10E-01 

3.54E-02 

4.11E-01 

3.37E-02 

8 

2 

-1.32E+00 

-6.73E-02 

-1.33E+00 

-7.23E-02 

-1.31E+00 

-6.78E-02 

9 

1 

-1.42E-01 

-2.16E-03 

-1.46E-01 

-2.80E-03 

-1.42E-01 

-2.05E-03 

9 

2 

-4.59E-01 

7.87E-04 

-4.76E-01 

7.31 E-04 

-4.71E-01 

5.56E-04 

10 

1 

1.08E+00 

6.35E-02 

1.09E+00 

6.85E-02 

ib a 

6.35E-02 

10 

2 

-6.78E-01 

-1.07E-01 

-6.93E-01 

-1.15E-01 

-6.80E-01 

-1.07E-01 

11 

1 

-1.42E-01 

-1.97E-03 

-1.47E-01 

-2.63E-03 

-1.43E-01 

-1.86E-03 

11 

2 

-4.72E-01 

-2.09E-03 

-4.90E-01 

-2.19E-03 

-4.84E-01 

-2.42E-03 

12 

1 

1.79E+00 

6.18E-02 

1.82E+00 

6.96E-02 

1.79E+00 

6.21E-02 

12 

2 

1.21E+00 

-1.89E-02 

1.21E+00 

-1.65E-02 

1.20E+00 

-1.90E-02 



















































































































































































TABLE XXVII 


EIGENVALUES OF 12-BAR TRUSS 
5-MODE CORRELATION 
METHOD 2, 90 MODEL 


1 — 

ANALYSIS g 

| EIGENVALUES IN Hz | 

MODE 

REAL 

IMAGINARY 

1 

-4.74E+02 

1.02E+03 

2 

petes?! 

! -3.83E+03 

3 

I -3.42E+02 

5.94E+03 

4 

| -2.55E+02 | -1.00E+04 \ 

| 5 | -2.96E+02 | 1.76E+04 | 


TEST 

EIGENVALUES IN Hz 

MODE 

REAL 

IMAGINARY | 

1 

-4.50E+02 


2 

-3.69E+02 

-3.76E+03 

3 

-3.25E+02 

5.87E+03 

4 

-2.41E+02 

-9.84E+03 

5 

-2.83E+02 

1.72E+04 


< M|«0 


CORRELATED 
EIGENVALUES IN Hz 


mm 

REAL 

IMAGINARY 

i 

-4.49E+02 

1 .02E+03 

2 

-3.69E+02 

-3.76E+03 | 

3 

-3.25E+02 

kt izm 

4 

-2.41 E+02 


5 

-2.83E+02 

1.72E+04 


















































TABLE XXVIII 


EIGENVELOCITIES OF 12-BAR TRUSS 
5-MODE CORRELATION 
METHOD 2, 90 MODEL 


1 

TEST | ANALYSIS 

CORRELATED f 

E£29 

MODE 

REAL 


REAL 

IMAGINARY 

REAL 


i 

1 

2.05E-01 

6.11E-03 

2.09E-01 

5.11E-03 

2.06E-01 

6.24E^03 ] 

l 

2 

-2.53E-01 

-4.85E-03 

-2.74E-01 

-2.63E-03 

-2.64E-01 


i 

3 

-3.86E-01 

-T.73E-02 

4.01E-01 

1.43E-02 

-3.72E-01 

-1.65E-02 

l 

4 

1.11E-KJ0 

8.24E-03 

I.IIE+OO 

1.68E-03 

1.11E+00 

7.94E-03 

l 

5 

-9.92E-01 

-3.18E-02 

ui 

-2.91E-02 

W2SE33M 

-2.90E-02 

2 

1 

6.72E-01 

3.38E-02 

6.66E-01 

2.98E-02 

6.70E-01 

3.35E-02 

2 

2 

-2.11E+00 

-3.85E-02 

-2.12E+00 

-2.46E-02 

-2.11E+00 

-3.75E-02 

2 

3 

-1.34E+00 

4.41E-02 

1.31E+00 

-5.92E-02 

-1.33E+00 

4.36E-02 

2 

4 

-1.23E+00 

1.78E-02 

-1.28E+00 

2.64E-02 

-1.22E+00 

T.83E-02 

2 

5 

-1.53E-01 

-1.16E-02 

-1.51E-01 

-1.08E-02 

-1.48E-01 

-1.20E-02 

3 

1 

2.46E-01 

6.20E-04 

2.51E-01 


2.44E-01 

5.02E-04 

3 

2 

5.05E-02 

1.05E-02 

mi 

1.29E-02 

5.06E-02 

1.06E-02 

3 

3 

-1.15E+00 

-4.85E-02 

1 1.20E+00 

4.23E-02 i 

-1.15E+00 

-4.81E-02 

3 

4 

1.67E+00 

2.82E-02 

1.65E+00 

1.97E-02 

1.67E+00 

2.72E-02 

3 

5 

-2.54E+00 



WBSS3SM 


-4.82E-02 

4 

1 

1.77E+00 

4.84E-02 

1.77E+00 

3.78E-02 

1.77E400 

4.79E-02 

4 

2 

-1.14E+00 

-1.45E-01 

-1.16E+00 

-1.44E-01 

-1.14E+00 

-1.46E-01 

4 

3 

1.85E+00 

1.28E-02 

-1.84E+00 

-2.33E-03 

1.84E+00 

1.24E-02 

4 

4 

1.00E+00 

-1.77E-03 

1.05E+00 

-6.3 IE-03 

1.01E+00 

-2.21E-03 

4 

5 

-2.18E-01 

1.43E-G2 

-2.22E-01 

1.81E-02 

-2.19E01 

1.51E-02 

5 

1 

2.86E-01 

-5.56E-03 

2.93E-01 

-7.76E-03 

2.85E-01 

-5.85E-03 

5 

2 

3.52E-01 

2.59E-02 

3.50E-01 

2.80E-02 

3.63E-01 

2.66E-02 

5 

3 

-1.80E+00 

-6.12E-02 

1.86E+00 

5.09E-02 

-1.81E+00 

-6.10E-02 

5 

4 

1.73E+00 

6.40E-02 

1.69E+00 

5.74E-02 

1.72E400 

6.30E-02 














































































































































































CONTINUATION OF TABLE XXVIII 


EIGENVELOCITIES OF 12-BAR TRUSS 
5-MODE CORRELATION 
METHOD 2, 90 MODEL 



TEST | 

ANALYSIS 

CORRELATED | 


MODE 

REAL 

IMAGINARY 

REAL 


REAL 

IMAGINARY 

5 

5 

-1.79E+00 

5.47E-02 

-1.75E+00 

7.00E-02 I 

-1.74E+00 

5.71E-02 

6 

1 

2.92E+00 

1.09E-02 

2.94E+00 

-7.30E-03 

2.92E+00 

1.03E-02 

6 

2 

1.94E+00 

-9.77E-02 

1.94E+00 

-1.13E-01 

1.94E+00 

-9.78E-02 

6 

3 

-1.25E+00 

-1.35E-01 ! 

1.24E+00 

1.35E-01 

-1.24E+00 

-1.34E-01 

6 

4 

-4.64E-01 

2.95E-02 

-4.80E-01 

3.15E-02 

-4.61 E-01 

3.00E-02 

6 

5 

7.21E-01 

3.98E-02 

7.20E-01 

3.53E-02 

7.07E-01 

3.92E-02 

7 

1 

-1.16E-01 

1.73E-03 

-1.19E-01 

2.47E-03 

-1.16E-01 

1.83E-03 

7 

2 

-3.84E-01 

1.44E-02 

-3.95E-01 

1.88E-02 

-3.82E-01 

1.44E-02 

7 

3 

-5.09E-01 

-5.13E-03 

5.33E-01 

1.17E-03 

-5.07E-01 

-4.79E-03 

7 

4 

9.89E-01 

1.58E-02 

9.81 E-01 

9.48E-03 


1.58E-02 

7 

5 

1.33E+00 

1.05E-01 

1.34E+00 

1.03E-01 

1.33E+00 

1.11E-01 

8 

1 

■araizmi 

3.38E-02 

6.68E-01 

2.98E-02 

6.72E-01 

3.36E-02 

8 

2 

-2.16E+00 

-4.22E-02 

-2.17E+00 

-2.76E-02 

-2.16E+00 

-4.11E-02 

8 

3 

-1.41E+00 

5.07E-02 

1.38E+00 

-6.63E-02 

-1.41E+00 

5.04E-02 

8 

4 

-1.44E+00 


-1.51E+00 

1.88E-02 

-1.45E+00 

9.03E-03 

8 

5 

-2.80E-01 

-1.59E-02 

-2.86E-01 

-1.50E-02 

-2.83E-01 

-1.71E-02 

9 

1 

-2.32E-01 

3.78E-03 

-2.37E-01 

5.28E-03 

-2.32E-01 

3.89E-03 

9 

2 

-7.51 E-01 

2.49E-02 

-7.72E-01 

3.32E-02 | 

-7.51 E-01 

2.50E-02 

9 

3 

EE223M 

-3.78E-03 

1.01E+00 

-4.40E-03 


-3.08E-03 

9 

4 

1.69E+00 

4.12E-02 

1.66E+00 

3.14E-02 

MUSI* 1 

4.11E-02 

9 

5 

1.46E+00 

7.57E-02 

1.42E+00 

6.67E-02 

UllSlL!l 

7.76E-02 

.10 

1 

1.77E+00 

4.83E-02 

1.77E+O0 

3.78E-02 

1.76E+00 

4.77E-02 

10 

2 

-1.12E+00 

-1.41E-01 

-1.13E+00 

-1.39E-01 

-1.11E+00 

-1.41E-01 

10 

3 

1.75E400 

1.57E-02 

-1.74E+00 

-6.84E-03 

1.74E+00 

1.53E-02 



















































































































































































CONTINUATION OF TABLE XXVIII 


EIGENVELOCITIES OF 12-BAR TRUSS 
5-MODE CORRELATION 
METHOD 2, 90 MODEL 



TEST 

ANALYSIS 

CORRELATED f 

EES 

mZSHM 

REAL 

IMAGINARY 

REAL 

IMAGINARY 

B9 


10 

4 

8.55E-01 

-7.30E-03 

8.86E-01 

-1.26E-02 

8.48E-01 

-7.78E-03 

10 

5 

-1.19E-01 

6.12E-03 

-1.17E-01 

7.37E-03 

-1.15E-01 

6.33E-03 

n 

1 

-2.33E-01 

4.09E-03 

-2.38E-01 

5.59E-03 

-2.31E-01 

4.10E-03 

n 

2 

-7.72E-01 

2.09E-02 

-7.95E-01 

2.94E-02 

-7.66E-01 

2.07E-02 

n 

3 

-1.03E+00 

7.26E-03 

1.08E+00 

-1.63E-02 

-1.03E+00 

8.19E-03 

n 

4 


1.01E-01 

2.04E-KJ0 

8.87E-02 

2.05E+00 

1.01 E-01 

li 

5 

3.19E+00" 

-6.27E-02 

3.26E+00 

■Ifl 

3.24E400 

-6.46E-02 

12 

1 

2.93E+00 

9.02E-03 


KAM&a 

2.92E+00 

8.36E-03 

12 

2 

1.97E-tOO 

WBBBi m 

1.97E+00 

-1.08E-01 

1.97E+00 

BM£1 

12 

3 

-1.29E+00 

-1.32E-01 

1.29E-KX) 

1.33E-01 

-1.29E+00 

-1.32E-01 

12 

4 

-5.10E-01 

2.68E-02 

-5.29E-01 

2.89E-02 

-5.09E-01 

2.73E-02 

12 

5 

9.91E-01 

3.24E-02 

1.01E+00 

2.64E-02 

9.91 E-01 

3.18E-02 
































































































4.7 44-BAR Truss 


The finite element model of the 44-BAR space truss is shown in figures 29 and 
30. The MSC/NASTRAN finite element program was used to model the 44-BAR trass. 
As can be observed in figure 29, the 44-BAR space truss consists of three bays. Each 
bay of the trass consists of four longerons, four battens, and five diagonals. The 
numbers in figure 29 represent the finite element node numbers. Nodes 1 through 4 and 
17 through 40 were grounded. The remaining nodes can translate in three orthogonal 
directions. We can see in figure 30 that there are 44 ROD elements (designated by the 
abbreviation RD). ROD elements in MSC/NASTRAN are general purpose elements 
with tension and compression capability. Therefore, the stiffness matrix of a ROD 
element is the same as the stiffness matrix of a simple spring. The mass of a ROD 
element is divided by two and the masses are placed on the respective two nodes 
surrounding the ROD element. Figure 30 also shows that three viscous dampers 
(VISC), designated by the abbreviations VS, are connected to every joint of the trass. 
The purpose of these elements is to resist the dynamic motion of the connecting joint in 
each translational direction. Thus, they represent the viscous damping in the joints of 
the truss. The VISC elements in the MSC/NASTRAN finite element program are 
general purpose elements that represent the general viscous dampers. In other words, 
the force produced by an element is equal to the velocity of the connecting 
degree-of-freedom times a damping coefficient. 

ROD elements of the analytical 44-BAR trass finite element model are made of 
steel and have the following properties: 


Modulus of elasticity = E = 30 . 0E6-^ 

in 1 

Poisson’s ratio = v = . 33 

Outer diameter of trass members = O . D .= 1 . 0 i/i 
Thickness of trass members = t = 0 . 075 in 

1b — sec 1 

Mass density of truss members = g = 0 . 0283— — j- 


The VISC elements of the analytical 12-BAR truss finite element model have 
the following property: 


Damping coefficient = C = 1 . 0 — 

It should be noted that the selected value of the damping coefficient is quite 
large and based on this selection the real and imaginary parts of the eigenvalues and 
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eigenvectors have the same order of magnitude. This selection determines whether the 
methodology and the FORTRAN program in this study can support and handle 
structures with large damping. 

In an effort to visualize the vibration motion of the analytical finite element 
model of the 44-BAR truss, the complex eigenvalue-eigenvector extraction of 
MSC/NASTRAN was activated, and the modal deformation plots have been included 
here. The modal deformation plots for the first four modes of the 44-BAR truss when it 
contains the analytical spatial properties are found in figures 3 1 through 38. Figures 3 1 
through 34 represent the real portion of the modal deformations, while figures 35 
through 38 represent the imaginary portion of the modal deformations. In order to better 
visualize and understand the motion of the 44-BAR truss, the modal deformations have 
been superimposed over the undeformed shape of the truss. We can see in figures 31 
through 38 that the modal deformation plots represent the system level modes, where the 
entire structure is in motion. Mode 3 is almost completely torsional. 

The following steps were taken to construct a test model : 

1) The coefficients of the VISC elements 46, 48, 50 through 53, 55, 58, 60, and 62 
were varied. When the damping coefficients of these elements were varied, nearly 
40 percent of the elements of the damping matrix in the test model had different 
values than those in the analytical model. 

2) The modulus of elasticity of the diagonal elements, namely ROD elements 29 
through 37 were varied. When the modulus of elasticity was varied, the stiffness of 
the ROD elements would vary proportionally. In general, when the stiffness values 
of diagonal elements of a truss are varied, the bending stiffness is greatly influenced 
because a large portion of the bending stiffness and torsional stiffness is due to the 
action (tension and compression) in the diagonal elements. 

The ROD elements and the VISC elements were varied so that the torsional and 
bending modes would couple. Therefore, the differences between the modal 
deformations of the test model and the analytical model are more severe than those of the 
12-BAR truss. Variance of the properties of the diagonal ROD elements was not done 
randomly. When considering the diagonals, because of the connectivity of these 
elements to the joints, and the fact that they connect to the joint at an angle, the effective 
stiffness of a joint combined with that of a diagonal may be different from the effective 
stiffness of the joint combined with that of the longerons or of the battens. Selection of 
the VISC elements was done randomly by the author who assumed that the 
manufacturing process for the joints might have been different enough to create such 
different damping coefficients for the truss joints. However, in a practical structural 
system, the difference between the analytical spatial properties and the test spatial 
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properties cannot be as severe as 10 percent of 50 percent of the joints. The 5 percent or 
10 percent reduction of the analytical spatial properties was used here only to examine 
the robustness of the methodology of this study. 

In an effort to examine the accuracy and robustness of the methodology of the 
system identification and the FORTRAN program used for this study, the values, as 
described above were varied twice. The first variation of the values was a 5 percent 
reduction of the analytical model’s properties. All the simulation computer runs for this 
5 percent reduction were called the 95 model. The second variation of the values was a 
10 percent reduction of the analytical model’s properties. All of the simulation 
computer runs for this 1 0 percent reduction were called the 90 model. The results for the 
95 model were satisfactory. Because the variation in spatial properties of the 90 model 
are more severe than those of the 95 model, only the results of the 90 model are presented 
here. 


In an effort to visualize the vibration motion of the test finite element model of 
the 44-BAR truss, the complex eigenvalue-eigenvector extraction of the 
MSC/NASTRAN was again activated. The modal deformation plots have been 
included here in figures 39 through 46 for the first four modes of the 44-BAR truss, 90 
model. When comparing the modal deformation plots of the 90 model with those of the 
analytical model, the only similarity that can be identified is between the real portion of 
the second and the third modes. Due to unsymmetric variance in the spatial properties of 
the analytical model it is expected to have such large differences between the modal 
deformations of the test model and those of the analytical model. We can see in figures 
3 1 through 38 that the modal deformation plots represent the system level modes where 
the entire structure is in motion. Similar to the modal deformations of the analytical 
model, mode 3 is nearly pure torsional. 

After the simulation computer runs were completed, the test modal data were 
saved on tape for the system identification process. Then the system identification was 
begun by exercising method 1 and method 2 presented in chapter HI. The system 
identification of the 95 model (when using method 1) was performed with two modes 
(modes 1 and 3), three modes (modes 1 , 3, and 5), four modes (modes 1,3,5, and 7), and 
five modes (modes 1 , 3, 5, 7, and 9). The motivation for using a wide variety of modes in 
identifying the 90 model was to examine the degradation in the quality of the test 
eigenvalues and eigenvectors, if any. The results of the 90 model when using method 1 
and method 2 have been documented and discussed for only two- and five-mode system 
identification to reduce the length of this document. 
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Figure 29: Analysis Finite Element Model Of 44-BAR Truss, Node Numbers 



Figure 30: 


wrjiim 


Model Of 44-BAR Truss, Element Numbers 



Figure 31: Modal Deformation Plot Of Analysis Finite Element Model Of 44-BAR Truss, 

Mode 1, Frequency= 19.09284 Hz, Phase=0 


Figure 32: Modal Deformation Plot Of Analysis Finite Element Model Of 44-BAR Truss, 

Mode 2, Frequency=22.44332 Hz, Phase=0 


N> 

N> 



Figure 33: Modal Deformation Plot Of Analysis Finite Element Model Of 44-BAR Truss, 

Mode 3, F requency=33.7 6233 Hz, Phase=0 



Figure 34: Modal Deformation Plot Of Analysis Finite Element Model Of 44-BAR Truss, 

Mode 4, Frequency=64.01659 Hz, Phase=0 



Figure 35: Modal Deformation Plot Of Analysis Finite Element Model Of 44-BAR Truss, 

Mode 1, Frequency=19.09284 Hz, Phase=-90 



Figure 36: Modal Deformation Plot Of Analysis Finite Element Model Of 44-BAR Truss, 

Mode 2, Frequency=22.44332 Hz, Phase=-90 



Figure 37: Modal Deformation Plot Of Analysis Finite Element Model Of 44-BAR Truss, 

Mode 3, F requency=33.76233 Hz, Phase=-90 



Figure 38: Modal Deformation Plot Of Analysis Finite Element Model Of 44-BAR Truss, 

Mode 4, Frequency=64.01659 Hz, Phase=-90 



Figure 39: Modal Deformation Plot Of Test Finite Element Model Of 44-BAR Truss, 

90 Model 

Mode 1, Frequency=18.95565 Hz, Phased) 



Figure 40: Modal Deformation Plot Of Test Finite Element Model Of 44-BAR Truss, 

90 Model 

Mode 2, F requency =22.2 1710 Hz, Phase=0 



Figure 41: Modal Deformation Plot Of Test Finite Element Model Of 44-BAR Truss, 

90 Model 

Mode 3, Frequency=32.91091 Hz, Phase=0 



Figure 42: Modal Deformation Plot Of Test Finite Element Model Of 44-BAR Truss, 

90 Model 

Mode 4, Frequency=62.99915 Hz, Phase=0 



Figure 43: Modal Deformation Plot Of Test Finite Element Model Of 44-BAR Truss, 

90 Model 

Mode 1, Frequency=18.95565 Hz, Phase=-90 



Figure 44: Modal Deformation Plot Of Test Finite Element Model Of 44-BAR Truss, 

90 Model 

Mode 2, Frequency=22.21710 Hz, Phase=-90 
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Figure 45: Modal Deformation Plot Of Test Finite Element Model Of 44-BAR Truss, 

90 Model 

Mode 3, Frequency=32.9109I Hz, Phase=-90 



Figure 46: Modal Deformation Plot Of Test Finite Element Model Of 44-BAR Truss, 

90 Model 

Mode 4, Frequency=62.99915 Hz, Phase=-90 


4.7.1 Results for 44-BAR Truss, 90 Model, Method 1 


1) Method 1, Two-Mode System Identification: The results of this computer run 
are documented in tables XXIX and XXX. Table XXIX indicates that the 
improvement of the first and second eigenvalues are 100 percent. Also, the 
eigenvelocities in table XXX show the same improvement, that is, nearly 100 
percent improvement over the analytical results for the first and second modes. 
Overall, the results of the two-mode system identification appear quite satisfactoiy. 

2) Method 1, Five-Mode System Identification: The results of this computer run 
are documented in tables XXXI and XXXII. Table XXXI indicates that there is a 
general improvement of the real portions of the first, second, and fifth eigenvalues. 
However, the magnitudes of the rest of the eigenvalues have worsened. Also, the 
eigenvelocities in table XXXII show some occasional improvement, but in general 
the eigenvelocities have worsened. Overall, the results of the five-mode system 
identification are unsatisfactory. 
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TABLE XXIX 


EIGENVALUES OF 44-BAR TRUSS 
2-MODE CORRELATION 
METHOD 1, 90 MODEL 


















































TABLE XXX 


EIGENVELOCITIES OF 44-BAR TRUSS 
2-MODE CORRELATION 
METHOD 1, 90 MODEL 


TEST T ANALYSIS I CORRELATED ~| 



MODE 

REAL 



1 

1.83E-03 

5.09E-03 

-1.78E-08 

5.98E-09 

2.67E-03 

5.37E-03 

i 

2 

1.55E-01 

-6.13E-03 

1.58E-01 

1.10E-03 

1.61E-01 

-6.91E-03 

2 

1 

-3.33E-01 

1.41E-02 

3.39E-01 

-2.82E-03 

-3.31 E-01 

1.39E-02 

2 

2 

1.68E-01 

-2.02E-02 

1.63E-01 

8.75E-04 

1.59E-01 

-1.90E-02 

3 

1 

3.41E-01 

-3.30E-03 

-3.39E-01 

2.82E-03 

3.36E-01 

^Eaiail 

3 

2 

1.50E-01 

7.89E-03 

1.53E-01 

8.75E-04 

1.50E-01 

6.05E-03 

4 

1 

2.00E-01 

-4.73E-03 

-2.09E-01 

1.69E-03 

2.05E-01 

-5.43E-03 

4 

2 

-2.79E-03 

7.49E-03 

3.57E-07 

WEEE3SM 

-2.75E-03 

7.70E-03 

5 

1 

-3.31E-01 

1.36E-02 

3.37E-01 

-3.22E-03 

-3.29E-01 

1.34E-02 

5 

2 

1.66E-01 

-2.03E-02 

1.51E-01 

1.08E-03 

1.58E-01 

-1.91E-02 

6 

1 

3.32E-01 

mwx'im 

-3.37E-01 

3.22E-03 

3.34E-01 

-3.11E-03 

6 

2 

1.58E-01 


1.51E-01 

1.08E-03 

1.49E-01 

5.75E-03 

7 

1 

-1.44E-03 

-5.16E-03 

3.54E-08 

-5.68E-09 

-2.67E-03 


7 

2 

-1.56E-01 

6.18E-03 

-1.58E-01 

-1.10E-03 

-1.61E-01 

6.91 E-03 

8 

1 

-3.26E-01 

1.22E-02 

3.39E-01 

-2.82E-03 

-3.31 E-01 

1.39E-02 

8 

2 

1.57E-01 

-1.73E-02 

1.53E-01 

8.75E-04 

1.59E-01 

-1.89E-02 

9 

i 

3.34E-01 

-1.28E-03 

-3.39E-01 

2.82E-03 

3.36E-01 

-3.53E-03 

9 

2 

1.60E-01 

5.00E-03 

1 1.53E-01 

8.75E-04 

1.50E-01 

5.98E-03 

10 

1 

-2.Q2E-01 

4.87E-03 

2.09E-01 

-1.69E-03 

-2.05E-01 

5.43E-03 

10 

2 

5.16E-03 

-7.68E-03 

-3.84E-07 

9.80E-09 

2.75E-03 

-7.70E-03 

11 

1 

-3.23E-01 

1.16E-02 

3.37E-01 

-3.22E-03 

-3.29E-01 

1.34E-02 

11 

2 

1.56E-01 

-1.74E-02 

1.51E-01 

1.08E-03 

1.57E-01 

-1.90E-02 

12 

1 

3.38E-01 

-2.95E-03 

eessu 

l 3.22E-03 

3.34E-01 

-3.14E-03 

12 

2 

1.49E-01 

7.65E-03 

1 1.51E-01 

1.08E-03 

1.49E-01 

5.82E-03 




















































































































































































CONTINUATION OF TABLE XXX 


EIGENVELOCITIES OF 44-BAR TRUSS 
2-MODE CORRELATION 
METHOD 1, 90 MODEL 




1 ' 

rEST 

i ANALYSIS 

r CORRELATED 1 

|EX*Z3 

MODE 

mmm 


REAL 

IMAGINARY 

REAL 


13 

1 

3.66E-03 

1.01E-02 

-4.24E-08 

1.25E-08 

5.32E-03 

1.07E-02 

13 

2 

3.09E-01 

-1.18E-02 

3.15E-01 

1.76E-03 

3.20E-01 

-1.33E-02 

14 

1 

-6.31E-01 

3.74E-02 

6.48E-01 

-4.73E-03 

-6.27E-01 

3.77E-02 

14 

2 

6.24E-01 

-4.93E-02 

6.02E-01 

2.96E-03 

6.18E-01 

-4.89E-02 

15 

1 

6.52E-01 

2.85E-03 

-6.48E-01 

4.73E-03 

6.47E-01 

3.06E-03 

15 

2 

5.91E-01 

3.55E-03 

6.02E-01 

2.96E-03 

6.01 E-01 

-1.11E-03 

16 

1 

2.41E-01 

-6.61E-03 

-2.51 E-01 

1.06E-03 

2.47E-01 

-7.48E-03 

16 

2 

-3.74E-03 

8.93E-03 

4.62E-07 

-1.13E-08 

-3.35E-03 

9.25E-03 

17 

1 

-6.37E-01 

3.82E-02 

6.54E-01 

-4.49E-03 

-6.33E-01 

3.85E-02 

17 

2 

6.32E-01 

-4.96E-02 

6.10E-01 

2.73E-03 

6.27E-01 

-4.92E-02 

18 

1 

6.46E-01 

6.48E-03 

-6.54E-01 

4.49E-03 

6.54E-01 

2.94E-03 

18 

2 

W3E3BM 

-1.57E-03 

6.10E-01 

2.73E-03 

6.09E-01 

-1.06E-03 

19 

1 

-2.89E-03 

WBESSSM 

-1.79E-08 

-1.12E-08 

-5.32E-03 

-1.07E-02 

19 

2 

-3.10E-01 

1.19E-02 

-3.15E-01 

-1.76E-03 

-3.20E-01 

1.33E-02 

20 

1 

-6.19E-01 

3.38E-02 

6.48E-01 

-4.73E-03 

-6.27E-01 

3.77E-02 

20 

2 

6.05E-01 


6.02E-01 

2.96E-03 

6.18E-01 

-4.88E-02 

21 

1 

6.40E-01 

6.60E-03 

-6.48E-01 

4.73E-03 

6.47E-01 

3.11E-03 

21 

2 

6.09E-01 

-1.70E-03 

6.02E-01 

2.96E-03 

6.01 E-01 

-1.23E-03 

22 

1 

-2.43E-01 

6.78E-03 

2.51 E-01 

-1.06E-03 

-2.47E-01 

7.48E-03 

22 

2 

6.07E-03 

-9.13E-03 

-4.57E-07 

1.19E-08 

3.35E-03 

■Wll 

23 

1 | 

-6.25E-01 

3.44E-02 



-6.33E-01 

3.84E-02 

23 

2 

6.13E-01 

-4.43E-02 

6.10E-01 

2.73E-03 

6.26E-01 

-4.91 E-02 

24 

1 

6.59E-01 

2.57E-03 

-6.54E-01 

4.49E-03 

6.54E-01 

2.88E-03 

24 

2 

5.98E-01 

3.89E-03 

6.10E-01 

2.73E-03 

6.09E-01 

-9.38E-04 























































































































































































CONTINUATION OF TABLE XXX 


EIGENVELOCITIES OF 44-BAR TRUSS 
2-MODE CORRELATION 
METHOD 1, 90 MODEL 


1 

TEST j 

ANALYSIS | CORRELATED | 

M >X»1 M 

MODE 

REAL 

IMAGINARY 

REAL 


REAL 

IMAGINARY 

25 

1 

3.66E-03 

1.02E-02 

1.27E-07 

1.04E-08 1 

5.35E-03 

1.08E-02 

25 

2 

3.12E-01 

-1.28E-02 

3.19E-01 

2.75E-03 

3.23E-01 

-1.44E-02 

26 

1 

-9.68E-01 

6.64E-02 

1. 00E +00 

O.OOE+OO 

-9.66E-01 

6.77E-02 

26 

2 

1.03E+00 

-7.20E-O2 

1. 00E +00 

1.25E-07 

1.03E+00 

-7.34E-02 

27 

1 

1.00E+00 

0.00E+00 


6.34E-08 

1.00E+00 

-7.16E-05 

27 

2 

9.77E-01 

6.38E-03 

1. OOE +00 

1.04E-07 

1. OOE +00 

1.49E-04 

28 

1 

2.79E-01 

-9.14E-03 

-2.91 E-01 

-3.58E-04 

2.86E-01 

-1.02E-02 

28 

2 

-4.68E-03 

1.02E-02 

1.88E-07 

-1.79E-08 

-3.96E-03 

1.07E-02 

29 

1 

^SEBSSM 

6.47E-Q2 

9.92E-01 

-1.01E-03 


6.61E-02 

29 

2 

1.02E+00 

-7.24E-02 

9.89E-01 

1.13E-03 

1.02E+00 

-7.39E-02 

30 

1 

9.77E-01 

5.67E-03 

Eszsni 

1.01E-03 

9.92E-01 

8.97E-04 

30 

2 

9.89E-01 

WSE32M 

9.89E-01 

1.13E-03 

9.89E-01 

-1.01E-03 

31 

i 

-2.88E-03 

-1.04E-02 

-3.71E-07 


-5.35E-03 

-1.08E-02 

31 

2 

-3.13E-01 

1.29E-02 

-3.19E-01 

-2.75E-03 

-3.23E-01 

1.44E-02 

32 

1 

-9.53E-01 

6.17E-02 

1. OOE +00 

2.21 E-08 

-9.66E-01 

6.76E-02 

32 

2 

1.00E+00 

-6.60E-02 

1. OOE +00 

2.15E-07 

1.03E+00 

-7.33E-02 

33 

1 

9.85E-01 

4.90E-03 

-1.00E+00 

5.16E-08 

1. OOE +00 

O.OOE+OO 

33 

I 2 

1.00E+00 

O.OOE+OO 

1.00E+00 

O.OOE+OO 

1.00E+00 

O.OOE+OO 

34 

1 

-2.81 E-01 

9.36E-03 

2.91E-01 

3.58E-04 

-2.86E-01 

1.02E-02 

34 

2 

6.93E-03 

-1.05E-02 

-3.02E-07 

1.78E-08 

3.96E-03 

-1.07E-02 

35 

1 

-9.46E-01 

6.02E-02 

9.92E-01 

-1.01E-03 

Km 

6.60E-02 

35 

2 

9.93E-01 

-6.66E-02 

9.89E-01 

1.13E-03 

1.02E+00 

-7.37E-02 

36 

1 

9.92E-01 

6.68E-04 

-9.92E-01 

1.01E-03 

9.92E-01 


36 

2 

9.66E-01 

5.62E-03 

9.89E-01 

1.13E-03 

9.89E-01 

\ -8.60E-04 | 




















































































































































































TABLE XXXI 


EIGENVALUES OF 44-BAR TRUSS 
5-MODE CORREALTION 
METHOD 1, 90 MODEL 


CORRELATED 
EIGENVALUES IN Hz 

CEBU 

REAL 

IMAGINARY 

1 

-1.91E+01 

-1-21E+02 

2 

-1.95E+01 

1.43E+02 

3 

-1.95E+01 

2.18E+02 

4 

-1.56E+0I 

3.99E+02 

5 

-I.60E+01 

-4.09E+02 


ANALYSIS 
EIGENVALUES IN Hz 



IMAGINARY 

1 

-I.95E+01 

-1.20E+02 

2 

-1.98E+01 

I 1.41E+02 

3 

-1.93E+01 

-2.12E+02 

4 

-1.51E+01 


5 

-1.62E+01 

| 4.02E+02 | 


TEST 

EIGENVALUES IN Hz 

MODE 

REAL 

IMAGINARY 

1 

-1.87E+01 

1.19E+02 

2 

-1.91E+01 

-140E+02 

3 

-1.85E+01 

-2.07E+02 

4 

-1.47E+01 

-3.96E+02 

5 

-1.56E+01 

3.99E+02 


















































TABLE XXXII 


EIGENVELOCITIES OF 44-BAR TRUSS 
5-MODE CORRELATION 
METHOD 1, 90 MODEL 



I TEST 

ANALYSIS | CORRELATED | 


MODE 

REAL 

IMAGINARY 

REAL 


| REAL 


i 

1 

1.83E-03 

5.09E-03 

-1.78E-08 

5.98E-09 

tE&£l S!£M 

-6.17E-03 

i 

2 

1.55E-01 

-6.13E-03 

1.58E-01 

1.10E-03 

1.55E-01 

5.22E-03 

i 

3 

5.32E-03 

-1.03E-03 

1.36E-09 

1.96E-08 

5.03E-03 

2.37E-04 

i 

4 

-1.89E-01 

2.84E-02 


7.86E-03 

-2.00E-01 

1.90E-02 

i 

5 

-1.93E-01 

1.82E-02 

-1.55E-07 

-1.05E-07 

-2.34E-01 

2.50E-02 

2 

1 

-3.33E-01 

1.41E-02 

3.39E-01 

-2.82E-03 

-3.48E-01 

-2.17E-02 

2 

2 

1.68E-01 

-2.02E-02 

1.53E-0I 

8.75E-04 

1.31E-01 

1.06E-02 

2 

3 

-4.62E-01 

5.05E-03 

-4.74E-01 

5.42E-03 

4.52E-01 

2.77E-03 

2 

4 

2.22E-01 

-1.63E-01 

1.00E+00 

1.70E-06 

9.94E-01 


2 

5 

1.00E+00 

O.OOE+OO 

6.41E-01 

-2.18E-02 

1.00E+00 

0.CBE+00 

3 

1 

3.41E-01 

-3.30E-03 

-3.39E-01 

2.82E-03 

3.34E-01 

9.22E-03 

3 

2 

1.50E-01 

7.89E-03 

1.53E-01 

8.76E-04 

1.53E-01 

-6.19E-03 

3 

3 

4.56E-01 

-6.58E-03 

4.74E-01 

-5.42E-03 

-4.66E-01 

-5.94E-03 

3 

4 

1.00E+00 

5.68E-03 

1.00E+00 

-1.70E-08 

2.72E-01 

-1.51E-01 

3 

5 


-1.47E-01 

-6.41E-01 

2.18E-02 

4.96E-01 

-1.22E-01 

4 

1 

2.00E-01 

-4.73E-03 

-2.09E-01 

1.69E-03 

2.13E-01 

7.71E-03 

4 

2 

-2.79E-03 

7.49E-03 

3.57E-07 


3.80E-03 

-4.89E-03 

4 

3 

-2.42E-03 


-3.92E-07 

-1.17E-10 

-1.69E-03 

-1.07E-03 

4 

4 

-1.86E-02 

-2.29E-04 


5.39E-08 

1.08E-02 

6.08E-03 

4 

5 

1.79E-02 

7.46E-03 

2.01E-02 

5.79E-03 

8.03E-03 

-6.79E-04 

5 

1 

-3.31E-01 

1.36E-02 

3.37E-01 

-3.22E-03 

-3.46E-01 

-2.10E-02 

5 

2 

1.66E-01 

-2.03E-02 

1.51E-01 

1.08E-03 

1.30E-01 

1.08E-02 

5 

3 

-4.52E-01 

6.02E-03 

wamsm 

6.36E-03 

4.43E-01 

3.86E-03 

5 

4 

2.04E-01 

-1.52E-01 

9.19E-01 | 

-5.94E-03 

9.14E-01 

5.26E-03 
















































































































































































CONTINUATION OF TABLE XXXII 


EIGENVELOCITIES OF 44-BAR TRUSS 
5-MODE CORRELATION 
METHOD 1, 90 MODEL 


1 

TEST ’ | 

ANALYSIS | 

CORRELATED f 

■aaa 

MODE 

REAL 


REAL 

IMAGINARY 

REAL 

IMAGINARY | 

5 

5 

9.22E-01 

5.65E-03 | 

5.90E-01 

-1.66E-02 1 

9.20E-01 


6 

1 

3.32E-01 

mEsssm 

-3.37E-01 

3.22E-03 

3.39E-01 

3.75E-03 

6 

2 

1.58E-01 

4.77E-03 

1.51E-01 i 

1.08E-03 

1.41 E-01 

-5.78E-03 

6 

3 

-4.56E-01 

3.85E-03 

-4.63E-01 

6.36E-03 

4.43E-01 

1.56E-03 

6 

4 

9.23E-01 

-4.79E-03 

9.19E-01 

WEEESm 

2.45E-01 

-1.38E-01 

6 

5 

2.55E-01 

-1.35E-01 

-5.90E-01 

1.66E-02 | 

4.59E-01 

-1.15E-01 

7 

1 

-1.44E-03 

-5.16E-03 

3.54E-08 

mx-'A&m 

4.24E-03 

6.17E-03 

7 

2 

-1.56E-01 

6.18E-03 

-1.58E-01 


-1.55E-01 

-5.22E-03 

7 

3 

-6.50E-03 

wmssm 

-6.97E-09 

-1.78E-08 

-5.05E-03 

-2.46E-04 

7 

4 

1.90E-01 

-2.97E-02 

3.14E-01 

-7.86E-03 

2.00E-01 

WBMSSM\ 

7 

5 

1.99E-01 

-1.76E-02 

2.79E-07 

1.07E-07 

2.34E-01 

-2.49E-02 

8 

1 

-3.26E-01 

1.22E-02 

3.39E-01 

-2.82E-03 

-3.65E-01 

-1.66E-02 

8 

2 

1.57E-01 

-1.73E-02 

1.53E-01 

8.75E-04 

1.41E-01 

1.06E-02 

8 

3 

4.55E-01 

-3.36E-03 

4.74E-01 

-5.42E-03 1 


-3.69E-03 

8 

4 

2.20E-01 

-1.57E-01 

1. 00E +00 

1.69E-06 

1.00E+00 

0.00E+00 

8 

5 

9.69E-01 

1.09E-03 

6.41E-01 

w&Esm 

9.96E-01 

7.85E-05 

9 

1 

3.34E-01 

-1.28E-03 

-3.39E-01 

2.82E-03 


4.17E-03 

9 

2 

1.60E-01 

5.00E-03 

1.53E-01 

8.75E-04 

1.42E-01 

-6.20E-03 

9 

3 

-4.65E-01 

3.12E-03 

-4.74E-01 

5.42E-03 

4.53E-01 

5.20E-04 

9 

4 

1.00E+00 

0.00E+00 

1.00E+00 

0.00E+00 

2.66E-01 

-1.52E-01 

9 

5 

2.76E-01 


-6.41 E-01 

2.18E-02 

5.01E-01 

-1.22E-01 

10 

1 

-2.02E-01 

4.87E-03 

2.09E-01 

-1.69E-03 

Kauasail 

-7.71E-03 

10 

2 

5.16E-03 

-7.68E-03 

-3.84E-07 

9.80E-09 

-3.82E-03 

4.88E-03 

10 

3 

9.16E-03 

7.19E-04 

3.46E-07 

4.30E-10 

1.68E-03 

1.07E-03 















































































































































































144 - 


CONTINUATION OF TABLE XXXII 


EIGENVELOCmES OF 44-BAR TRUSS 
5-MODE CORRELATION 
METHOD 1,90 MODEL 



| TEST 

ANALYSIS | CORRELATED | 

Kzaa 

MODE 

REAL 

IMAGINARY 

REAL 

| IMAGINARY 

REAL 


10 

4 

2.16E-02 

-2.02E-03 

5.30E-08 

1BE3B3I 

-1.06E-02 

-6.06E-03 

10 

5 

-5.03E-03 

-6.67E-03 

-2.01E-02 

w&ssm 

W3B3SM 

6.93E-04 

11 

1 

-3.23E-01 

1.16E-02 

3.37E-01 

-3.22E-03 

-3.52E-01 

-1.60E-02 

11 

2 

1.56E-01 

-1.74E-Q2 

1.51E-01 

1.08E-03 

1.40E-01 

1.08E-02 

11 

3 

4.46E-01 

-4.35E-03 

4.63E-01 

-6.36E-03 

-4.55E-01 

-4.55E-03 

11 

4 

2.02E-01 

-1.46E-01 

9.19E-01 

-5.94E-03 

9.20E-01 

5.78E-03 

11 

5 

8.94E-01 

6.48E-03 

5.90E-01 

-1.66E-02 

9.15E-01 

-5.72E-03 

12 

1 

3.38E-01 

-2.95E-03 

-3.37E-01 

3.22E-03 | 

3.32E-01 

8.69E-03 

12 

2 

1.49E-01 

7.65E-03 

1.51E-01 

1.08E-03 

1.51E-01 

-5.76E-03 

12 

3 

4.45E-01 

-7.22E-03 

4.63E-01 

-6.36E-03 

-4.54E-01 

■Kli 

12 

4 

9.23E-01 

4.54E-04 

9.19E-01 

-5.94E-03 

2.51 E-01 

-1.37E-01 

12 

5 

2.35E-01 

-1.35E-01 

-5.90E-01 

1.66E-02 ! 

4.55E-01 

-1.15E-01 

13 

1 

3.66E-03 

1.01E-02 

-4.24E-08 

1.25E-08 ! 


-1.23E-02 

13 

2 

3.09E-01 

-1.18E-02 

3.15E-01 

1.76E-03 

3.09E-01 

9.92E-03 

13 

3 

1.05E-02 

-2.01E-03 

4.08E-09 

3.96E-08 

9.82E-03 

4.20E-04 

13 

4 

-3.64E-01 

5.36E-02 

-6.03E-01 

1.32E-02 

-3.84E-01 

3.76E-02 

13 

5 

-3.71E-01 

3.62E-02 


-1.99E-07 

-4.49E-01 

4.65E-02 

14 

1 

-6.31E-01 

3.74E-02 

6.48E-01 

-4.73E-03 

-6.73E-01 

-5.31E-02 

14 

2 

6.24E-01 

-4.93E-Q2 

6.02E-01 

2.96E-03 

5.60E-01 

3.10E-02 

14 

3 

-7.82E-01 

5.26E-03 

-8.16E-01 

7.97E-03 

7.99E-01 

5.25E-03 

14 

4 

-1.38E-01 

-1.16E-01 

4.28E-01 

3.23E-04 

6.43E-01 

4.89E-02 

14 

5 

6.41E-01 

4.62E-02 

6.71E-01 

-1.79E-02 

5.88E-01 

3.56E-02 

15 

1 

6.52E-01 

2.85E-03 

-6.48E-01 

4.73E-03 

6.33E-01 

5.50E-03 

15 

2 

5.91E-01 

3.55E-03 

6.02E-01 

■m 

6.00E-01 

-3.44E-04 

























































































































































































CONTINUATION OF TABLE XXXII 


EIGENVELOCITIES OF 44-BAR TRUSS 
5-MODE CORRELATION 
METHOD 1,90 MODEL 


1 

TEST 1 

ANALYSIS 1 

CORRELATED | 


MODE 

REAL 


REAL 

IMAGINARY 

■ e mm 

IMAGINARY | 

15 

3 

7.96E-01 

-1.21E-02 | 

8.16E-01 

-7.97E-03 

-7.88E-01 

Esaaii 

15 

4 

6.58E-01 

4.93E-02 

4.28E-01 

3.21E-04 

-1.06E-01 

-1.14E-01 

15 

5 

-1.07E-01 

-1.11E-01 

-6.71 E-01 

1.79E-02 

5.49E-02 

-8.81 E-02 

16 

1 

2.41 E-01 

-6.61E-03 

-2.51 E-01 

1.06E-03 

2.58E-01 

9.90E-03 

16 

2 

-3.74E-03 

8.93E-03 

4.62E-07 

-1.13E-08 

4.89E-03 

-5.55E-03 

16 

3 

WEESsSi 

-7.99E-04 

-4.12E-07 

-5.35E-09 

-4.32E-03 

-1.78E-03 

16 

4 

-3.19E-01 

-5.51E-02 

-2.16E-06 

. 8.15E-07 

3.03E-01 

7.71E-02 

16 

5 

3.01 E-01 

7.47E-02 

5.39E-01 

5.52E-03 

2. 11 E-01 

4.18E-02 

17 

1 

-6.37E-01 

3.82E-02 

6.54E-01 

msssssm 

-6.79E-01 

-5.42E-02 

17 

2 

6.32E-01 


6.10E-01 

2.73E-03 

5.67E-01 

mmsm 

17 

3 

wmsm 

4.95E-03 

mmum 

7.49E-03 

8.22E-01 


17 

4 

-1.53E-01 

-1.31E-01 

4.81 E-01 

2.43E-03 

7.22E-01 

5.20E-02 

17 

5 

7.15E-01 

4.87E-02 

7.51 E-01 

-2.27E-02 

6.59E-01 

4.25E-02 

18 

1 

6.46E-01 

6.48E-03 

-6.54E-01 

4.49E-03 


-3.05E-03 

18 

2 

6.17E-01 

-1.57E-03 

6.10E-01 

2.73E-03 

5.90E-01 

-6.76E-04 

18 

3 

g;lElg»li 

8.50E-04 

-8.42E-01 

7.49E-03 

8.19E-01 

-5.50E-04 

18 

4 

7.29E-01 

5.80E-02 

4.81E-01 

2.42E-03 

-1.30E-01 

-1.29E-01 

18 

5 

-1.25E-01 

-1.25E-01 | 

-7.51E-01 

2.27E-02 

7.19E-02 

-9.84E-02 

19 

1 

-2.89E-03 

-1.03E-02 

-1.79E-08 

-1.12E-08 

8.47E-03 

1.23E-02 

19 

2 

-3.10E-01 

1.19E-02 

-3.15E-01 

-1.76E-03 

-3.09E-01 


19 

3 

-1.29E-02 

1.74E-03 

-1.10E-07 


-9.86E-03 

-4.37E-04 ( 

19 

4 

3.65E-01 

-5.60E-02 

6.03E-01 

-1.32E-02 

3.84E-01 

-3.75E-02 

19 

5 

3.83E-01 

-3.50E-Q2 

4.22E-07 

2.08E-07 

4.49E-01 

-4.64E-02 

20 

1 

-6.19E-01 

3.38E-02 

6.48E-01 

-4.73E-03 

-6.85E-01 

-4.44E-02 
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CONTINUATION OF TABLE XXXII 


EI6ENVELOCIT1ES OF 44-BAR TRUSS 
5-MODE CORRELATION 
METHOD 1, 90 MODEL 



| TEST 

! ANALYSIS | CORRELATED I 


MODE 

REAL 

| IMAGINARY 

REAL 


REAL 


20 

2 

6.05E-01 


6.02E-01 

2.96E-03 

5.77E-01 

3.09E-02 

20 

3 

8.01E-01 

-6.41E-03 

8.16E-01 

-7.97E-03 

-7.84E-01 

-2.97E-03 

20 

4 

-1.32E-01 

-1.16E-01 

4.28E-01 

3.23E-04 

6.54E-01 

4.95E-02 

20 

5 

6.36E-01 

4.68E-02 

6.71E-01 

-1.79E-02 

5.80E-01 

3.57E-02 

21 

1 

6.40E-01 

6.60E-03 

-6.48E-01 

4.73E-03 

6.45E-01 

-3.17E-03 

21 

2 

6.09E-01 

-1.70E-03 

6.02E-01 

2.96E-03 

5.82E-01 

-3.20E-04 

21 

3 

-7.91E-01 

1.51E-03 

-8.16E-01 

7.97E-03 

7.95E-01 

7.27E-05 

21 

4 

6.54E-01 

5.00E-02 

4.28E-01 

3.21 E-04 

-1.17E-01 

-1.15E-01 

21 

5 

-1.13E-01 

-1.12E-01 

-6.71E-01 

1.79E-02 

6.36E-02 


22 

1 

-2.43E-01 

6.78E-03 

2.51E-01 

-1.06E-03 

-2.58E-01 

wbusm 

22 

2 

6.07E-03 

-9.13E-03 

-4.57E-07 

1.19E-08 

-4.92E-03 

5.54E-03 

22 

3 

1.08E-02 

7.99E-04 

2.28E-07 

6.79E-09 

4.29E-03 

1.76E-03 

22 

4 

3.23E-01 

5.32E-02 

2.22E-06 


-3.03E-01 

-7.71E-02 

22 

5 

-2.89E-01 

-7.36E-02 



-2.11E-01 


23 

1 

-6.25E-01 

3.44E-02 

6.54E-01 

-4.49E-03 

-6.92E-01 

-4.52E-02 

23 

2 

6.13E-01 

-4.43E-Q2 

6.10E-01 

2.73E-03 

5.85E-01 

3.10E-02 

23 

3 

8.25E-01 

-6.12E-03 

8.42E-01 

-7.49E-03 

WMS3M 

-2.51 E-03 

23 

4 

-1.47E-01 

-1.30E-01 

4.81E-01 

2.43E-03 

7.34E-01 

5.25E-02 

23 

5 

7.14E-01 

4.97E-02 

7.51 E-01 

-2.27E-02 

6.50E-01 

4.26E-02 

24 

1 

6.59E-01 

2.57E-03 

-6.54E-01 

4.49E-03 

6.39E-01 


24 

2 

5.98E-01 

3.89E-03 

6.10E-01 

2.73E-03 

6.08E-01 

-7.10E-04 1 

24 

3 

8.19E-01 

-1.12E-02 

8.42E-01 

-7.49E-03 

EiMiUI 


24 

4 

7.34E-01 

5.84E-02 

4.81 E-01 

2.42E-03 

-1.19E-01 | 

-1.28E-01 | 













































































































































































CONTINUATION OF TABLE XXXII 


EIGENVELOCITIES OF 44-BAR TRUSS 
5-MODE CORRELATION 
METHOD 1, 90 MODEL 


1 

TEST | 

ANALYSIS | CORRELATED | 

m&iM 

MODE 

REAL 


REAL 


REAL 

IMAGINARY | 

24 

5 

-1.21E-01 

-1.24E-01 

-7.51E-01 

2.27E-02 

6.30E-02 

mxmm 

25 

1 

3.66E-03 

1.02E-Q2 

1.27E-07 

1.04E-08 

ESI 

-1.24E-02 

25 

2 

3.12E-01 

-1.28E-02 

3.19E-01 

2.75E-03 

3.12E-01 

1.11E-02 

25 

3 

1.08E-02 

-2.10E-03 

1.45E-07 

3.70E-08 

1.04E-02 

5.45E-04 

25 

4 

-3.97E-01 

6.12E-02 

-6.61 E-01 

1.93E-02 

-4.22E-01 

3.82E-02 

25 

5 

-4.06E-01 

3.67E-02 

-1.89E-07 

-2.20E-07 

-4.93E-01 

5.46E-02 

26 

1 

-9.68E-01 

6.64E-02 

1.00E+00 

0.00E+00 

-1.04E+00 

-8.93E-02 

26 

2 

1.03E+00 

-7.20E-02 

1.00E+00 

1.25E-07 

9.42E-01 

4.61 E-02 

26 

3 

-9.39E-01 

-3.53E-03 

-1.00E+00 

2.71E-07 

1.00E+00 

0.00E+00 

26 

4 

2.31E-01 

1.46E-01 

-4.91 E-01 

9.88E-04 



26 

5 


-7.98E-02 

mmssm 

8.08E-03 

ROI 

-4.66E-02 

27 

1 

1.00E+00 

0.00E+00 

-1.00E+00 

6.34E-08 

9.85E-01 

1.05E-02 

27 

2 

9.77E-01 

6.38E-03 

1.00E+00 

1.04E-07 

1.00E+00 

0.00E+00 1 

27 

3 

9.76E-01 

-7.7 IE-03 

1.00E+00 

-6.09E-08 

-9.62E-01 

-1.80E-03 

27 

4 

-8.48E-01 

-6.72E-02 

-4.91 E-01 

9.91 E-04 

2.00E-01 

1.56E-01 

27 

5 

2.14E-01 

1.53E-01 

8.97E-01 


-2.05E-02 

1.06E-01 

28 

1 

2.79E-01 

-9.14E-03 

-2.91 E-01 

mw.ww 

3.00E-01 

1.28E-02 

28 

2 

-4.68E-03 

1.02E-02 

1.88E-07 

- 1.79E-08 

5.87E-03 

-6.22E-03 

28 

3 

-5.93E-03 


1.31E-08 

-1.06E-08 

-6.67E-03 

-2.38E-03 

28 

4 

-5.87E-01 

-1.07E-01 

-4.01 E-06 

1.47E-06 

5.64E-01 

1.37E-01 

! 28 

5 

5.53E-01 

1.32E-01 

1.00E+00 

0.00E+00 

3.91 E-01 

8.16E-02 

29 

1 


6.47E-02 

9.92E-01 

-1.01E-03 

-1.04E+00 

-8.74E-02 

29 

2 

I 1.02E+00 

-7.24E-02 

9.89E-01 

1.13E-03 


MX5EE2M 

29 

3 


-2.09E-03 

-9.75E-01 

1.83E-03 

I 9.75E-01 

1 1.86E-03 I 











































































































































































CONTINUATION OF TABLE XXXII 


EIGENVELOCITIES OF 44-BAR TRUSS 
5-MODE CORRELATION 
METHOD 1,90 MODEL 



TEST 

ANALYSIS 

CORRELATED | 

E ISM 

MODE 

REAL 

IMAGINARY 

REAL 

IMAGINARY 

rnssm 


29 

4 

2.12E-01 

1.32E-01 

-4.47E-01 

j 3.51 E-03 

-7.57E-01 

-7.91E-02 

29 

5 

-7.65E-01 

-7.71E-02 

M5Z3SM 

3.09E-03 

-6.45E-01 

-3.90E-02 

30 

1 

9.77E-01 

5.67E-03 

-9.92E-01 

1.01 E-03 

9.92E-01 

-7.74E-04 

30 

2 

9.89E-01 

weesssm 

9.89E-01 

1.13E-03 

9.68E-01 

1.07E-03 

30 

3 

-9.40E-01 

-7.96E-03 

ESE3H 

1.83E-03 

9.53E-01 

BEESgai 

30 

4 

-7.79E-01 

-4.74E-02 

-4.47E-01 

3.51 E-03 

1.68E-01 

1.43E-01 

30 

5 

1.52E-01 

1.39E-01 

8.19E-01 

-3.09E-03 

-6.70E-03 

9.72E-02 

31 

1 

-2.88E-03 

-1.04E-02 

-3.71E-07 


8.48E-03 

1.24E-02 

31 

2 

-3.13E-01 

1.29E-02 

-3.19E-01 

-2.75E-03 

-3.12E-01 

-1.11E-02 

31 

3 

-1.32E-02 

1.84E-03 

3.55E-08 

-3.17E-08 

-1.04E-02 

-5.65E-04 

31 

4 

3.98E-01 

-6.39E-02 

6.61E-01 

-1.93E-02 

4.22E-01 

-3.82E-02 

31 

5 

4.19E-01 

-3.52E-02 

6.40E-07 

! 2.31E-07 

4.92E-01 

WEES g»M| 

32 

1 

mmam 

6.17E-02 


1 2.21E-08 

-1.06E+00 

-7.88E-02 

32 

2 1 

1.00E+00 

-6.60E-02 

1.00E+00 

! 2.15E-07 

9.63E-01 

4.60E-02 

32 

3 

1.00E+00 

0.00E+00 

1.00E+00 

0.00E+00 

-9.39E-01 

9.55E-03 

32 

4 

2.34E-01 

1.35E-01 

-4.91E-01 

9.89E-04 



32 

5 

-7.85E-01 

-7.81 E-02 

mi 

8.08E-03 

-7.20E-01 

-4.67E-02 

33 

1 

9.85E-01 

4.90E-03 

-1.00E+00 

5.16E-08 

1.00E+00 

0.00E+00 

33 

2 

1.00E+00 

0.00E+00 

1.00E+00 

0.00E+00 

9.79E-01 

1.54E-04 

33 

3 

-9.63E-01 

-9.94E-03 


2.15E-07 

9.77E-01 

-1.14E-02 

33 

4 

-8.51E-01 

-5.58E-02 

-4.91E-01 

9.91 E-04 

1.85E-01 

1.55E-01 

33 

5 

1.66E-01 

1.51E-01 

8.97E-01 


-8.97E-03 

1.06E-01 

34 

1 

-2.81E-01 

9.36E-03 

2.91E-01 

3.58E-04 

-3.00E-01 

-1.28E-02 











































































































































































CONTINUATION OF TABLE XXXII 


EIGENVELOCITIES OF 44-BAR TRUSS 
5-MODE CORRELATION 
METHOD 1, 90 MODEL 



TEST 

ANALYSIS 

CORRELATED | 

MSESM 

MODE 

REAL 


REAL 

IMAGINARY 


IMAGINARY 

34 

2 

6.93E-03 

-1.05E-02 

-3.02E-07 

1.78E-08 

-5.90E-03 

6.20E-03 

34 

3 

1.22E-02 

9.11E-04 

-1.45E-07 

1.79E-08 

6.64E-03 

2.36E-03 

34 

4 

5.91 E-01 

1.05E-01 

4.02E-06 

-1.47E-06 

-5.64E-01 

-1.37E-01 

34 

5 

-5.43E-01 

-1.30E-01 

-1.00E+00 

3.16E-08 

-3.92E-01 


35 

1 

-9.46E-01 

6.02E-02 

9.92E-01 

msassm 

-1.05E+00 

-7.7 IE-02 

35 

2 

-9.40E-01 

-7.96E-03 

9.89E-01 

1.13E-03 

9.52E-01 

4.66E-02 

35 

3 

-7.79E-01 

-4.74E-02 

9.75E-01 

-1.83E-03 

-9.16E-01 

7.52E-03 

35 

4 

1.52E-01 

1.39E-01 

-4.47E-01 


g^asii 

-7.89E-02 

35 

5 

-2.88E-03 

-1.04E-02 


3.09E-03 

-6.56E-01 

-3.90E-02 

36 

1 

•3.13E-01 

1.29E-02 

-9.92E-01 

1.01E-03 

9.77E-01 

9.50E-03 

36 

2 

-1.32E-02 

1.84E-03 

9.89E-01 

1.13E-03 

9.89E-01 

■EEEIgM 

36 

3 

EH9 

-6.39E-02 

9.75E-01 

-1.83E-03 

-9.38E-01 

-3.67E-03 

36 

4 

4.19E-01 

-3.52E-02 

-4.47E-01 

3.51E-03 

1.82E-01 

1.43E-01 

36 

5 

MrJRXZim 

6.17E-02 

8.19E-01 

-3.09E-03 

-1.78E-02 

9.72E-02 












































































































4.7.2 Results for 44-BAR Truss, 90 Model, Method 2 


1) Method 2, Two-Mode System Identification: The results of this computer run 
are documented in tables XXXIII and XXXTV. Table XXXIII indicates that the 
improvement of the first and second eigenvalues are 100 percent. Also, the 
eigenvelocities in table XXXTV show the same improvement, that is, nearly 100 
percent improvement over the analytical results for the first and second modes. 
Overall, the results of the two-mode system identification appear quite satisfactory. 

2) Method 2, Five-Mode System Identification: The results of this computer run 
are documented in tables XXXV and XXXVI. Table XXXV indicates that the 
improvements of the first, second, third, fourth, and fifth eigenvalues are near 100 
percent. Also, the eigenvelocities in table XXXVI show the same improvements, 
that is, nearly 100 percent improvement over the analytical results for the first, 
second, third, forth, and fifth modes. Overall, the results of the five-mode system 
identification appear quite satisfactory. 


TABLE XXXIII 


EIGENVALUES OF 44-BAR TRUSS 
2-MODE CORRELATION 
METHOD 2, 90 MODEL 


ANALYSIS 
EIGENVALUES IN Hz 


REAL 

IMAGINARY 

1 

-1.95E+01 

-1.20E+02 

2 

-1.98E+01 

1.4 IE +02 

3 

XXX 

XXX 

4 

XXX 

XXX 

5 

XXX 

XXX 


TEST 

EIGENVALUES IN Hz 

E5H3 

REAL 


i 

-1.87E+01 

1.19E+02 

2 

-1.91E+01 

•1.40E+02 

3 

XXX 

XXX 

4 

XXX 

XXX 

5 

XXX 

XXX 


w|«o 
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TABLE XXXIV 


EIGENVELOCITIES OF 44-BAR TRUSS 
2-MODE CORRELATION 
METHOD 2, 90 MODEL 


1 

™“” TEST H 

ANALYSIS | CORRELATED Q 

wMJI 

MODE 

REAL 

IMAGINARY 

REAL 


REAL 

IMAGINARY 

i 

1 

2.57E-03 

7.07E-03 

-2.44E-08 

8.15E-09 

3.79E-03 

-7.23E-03 

l | 

2 

2.24E-01 

-7.86E-03 

2.31E-01 

8.63E-04 [ 

2.31 E-01 

8.82E-03 

2 

1 

-4.63E-01 

2.15E-02 

4.66E-01 

-2.54E-03 

-4.61 E-01 

-2.25E-02 

2 

2 

2.42E-01 

-2.80E-02 

2.23E-01 

5.60E-04 

2.28E-01 

2.80E-02 

3 

1 

4.74E-01 

-6.50E-03 

-4.66E-01 

2.54E-03 

4.68E-01 

8.03E-03 

3 

2 

2.16E-01 

1.23E-02 

2.23E-01 

5.60E-04 

2.16E-01 

-1.15E-02 

4 

1 

2.78E-01 

-7.69E-03 

-2.87E-01 

1.50E-03 

2.86E-01 

8.82E-03 

4 

2 

EEi^l 

1.08E-02 

5.2 IE-07 

-1.60E-08 

-3.99E-03 

-1.12E-02 

5 

1 

-4.69E-01 

2.08E-02 

4.62E-01 

-3.10E-03 

-4.58E-01 

-2.17E-02 

5 

2 

2.39E-01 

-2.81E-02 

2.20E-01 

8.69E-04 

2.26E-01 

2.81E-02 

6 

1 

4.61E-01 

-3.17E-03 

-4.62E-01 

3.10E-03 

4.65E-01 

5.42E-03 

6 

2 

2.28E-01 

7.86E-03 

2.20E-01 

8.69E-04 

2.13E-01 

-8.49E-03 

7 

1 

-2.03E-03 

-7.16E-03 

4.86E-08 

-7.66E-09 

-3.79E-03 

7.27E-03 

7 

2 

-2.24E-01 

7.92E-03 

-2.31E-01 


-2.31E-01 

-8.87E-03 

8 

1 

-4.53E-01 

1.87E-02 

4.66E-01 

-2.54E-03 

-4.6 IE-01 

-2.05E-02 

8 

2 

2.26E-01 

-2.40E-02 

2.23E-01 

5.60E-04 

2.29E-01 

2.54E-02 

9 

1 

4.64E-01 

-3.65E-03 

-4.66E-01 

2.54E-03 

4.68E-01 

5.92E-03 

9 

2 

2.30E-01 

8.19E-03 

2.23E-01 

mssssm 

2.16E-01 


10 

1 

-2.81E-01 

7.90E-03 

2.87E-01 

-1.50E-03 

-2.86E-01 

1 -8.86E-03 | 

10 

2 

7.48E-03 

-1.10E-02 

-5.61E-07 

1.61E-08 

3.98E-03 

WBESSm 

11 

1 

-4.49E-01 

1.80E-02 

4.62E-01 

-3.10E-03 

-4.57E-01 

-1.97E-02 

11 

2 

2.24E-01 

-2.41 E-02 

2.20E-01 

8.69E-04 

2.26E-01 

2.54E-02 

12 

1 

4.70E-01 

-5.99E-03 

-4.62E-01 

3.10E-03 

4.65E-01 

7.52E-03 

12 

2 

2.14E-01 

1.19E-02 

2.20E-01 

8.69E-04 

2.14E-01 

-1.12E-02 

















































































































































































CONTINUATION OF TABLE XXXIV 


EI6ENVELOCITIES OF 44-BAR TRUSS 
2-MODE CORRELATION 
METHOD 2, 90 MODEL 


TEST | ANALYSIS | CORRELATED 1 



MODE 

REAL 


REAL ] 

IMAGINARY | REAL | IMAGINARY | 

13 

1 

5.14E-03 

1.41 E-02 1 

EBSa 

1.70E-08 

7.56E-03 

-1.44E-02 

13 

2 

4.45E-01 

-1.51E-02 

4.60E-01 

1.08E-03 

4.59E-01 

1.70E-02 

14 

1 

-8.78E-01 

5.55E-02 

8.89E-01 

-3.96E-03 

-8.73E-01 

-5.76E-02 

14 

2 

8.99E-01 

-6.71E-02 

8.78E-01 

1.49E-03 

8.88E-01 

6.91 E-02 

15 

1 

9.07E-01 

3.06E-04 

EMiU 

3.96E-03 

9.02E-01 

2.20E-03 

15 

2 

8.50E-01 

8.79E-03 

8.78E-01 

1.49E-03 

8.63E-01 

-5.54E-03 

16 

1 

3.35E-01 

-1.05E-02 

-3.45E-01 

4.68E-04 

3.44E-01 

1.19E-02 

16 

2 

-5.44E-03 

1.28E-02 

6.74E-07 

-1.87E-08 

-4.89E-03 

-1.33E-02 

17 

1 

-8.86E-01 

5.66E-02 

EH 

-3.61 E-03 

EH 

-5.88E-02 

17 

2 

9.10E-01 

-6.75E-02 

8.90E-01 

1.11E-03 

9.00E-01 

6.96E-02 

18 

1 

8.99E-01 

5.38E-03 

EH 

3.61 E-03 

9.10E-01 

-1.40E-03 

18 

2 

8.88E-01 

1.58E-03 

8.90E-01 

1.11 E-03 

8.75E-01 

-6.94E-04 

19 

1 

giwaiKi 

-1.43E-02 

-2.45E-08 

-1.55E-08 

-7.55E-03 

1.45E-02 

19 

2 

-4.47E-01 


-4.60E-01 

-1.08E-03 

-4.59E-01 

-1.71E-02 

20 

1 

-8.60E-01 

5.05E-02 

8.89E-01 

-3.96E-03 

-8.72E-01 

-5.41 E-02 

20 

2 

8.71E-01 

-5.98E-02 

8.78E-01 

1.49E-03 

8.88E-01 

6.44E-02 

21 

1 

8.90E-01 

5.59E-03 


3.96E-03 

9.01E-01 

-1.65E-03 

21 

2 

8.76E-01 

1.33E-03 

8.78E-01 

1.49E-03 

8.63E-01 

-4.42E-04 

22 

1 

-3.37E-01 

1.08E-02 

3.45E-01 

-4.68E-04 

-3.44E-01 

-1.19E-02 

22 

2 

8.79E-03 

-1.31E-02 

-6.67E-07 

1.96E-08 

4.88E-03 

1.34E-02 

23 

i 

EH 

5.14E-02 

8.98E-01 

-3.61 E-03 

-8.81E-01 

-5.50E-02 

23 

2 

8.83E-01 

-6.00E-02 

8.90E-01 

1.11 E-03 

9.00E-01 

6.46E-02 

24 

1 

9.16E-01 

-1.14E-04 


3.61 E-03 

9.11E-01 

2.63E-03 

24 

2 

8.61E-01 

mxjkvizxm 



8.75E-01 

-6.02E-03 




















































































































































































CONTINUATION OF TABLE XXXIV 


EIGENVELOCITIES OF 44-BAR TRUSS 
2-MODE CORRELATION 
METHOD 2, 90 MODEL 




1 TEST 

I ANALYSIS 

f CORRELATED | 

|EEa 

MODE 

REAL 

IMAGINARY 

REAL 

MSm TTJZM 

REAL 

IMAGINARY 

25 

1 

5.14E-03 

1.42E-02 

1.75E-07 

1.47E-08 

7.61E-03 

-1.45E-02 

25 

i 2 

4.50E-01 

-1.65E-02 

4.65E-01 

2.51E-03 

4.64E-01 

1.85E-02 

26 

1 

-1.35E+00 

9.77E-02 

1.37E+00 

3.91 E-03 

-1.34E+00 

-1.01E-01 

26 

2 

1.48E+00 

-9.73E-02 

1.46E+00 

! -4.70E-03 

1.48E+00 

1.02E-01 

27 

1 

1.39E+00 


-1.37E+00 

-3.91 E-03 

1.39E+00 

8.98E-03 

27 

2 

1.41E+00 

1.53E-02 

1.46E+00 

-4.70E-03 

1.44E+00 


28 

1 

3.88E-01 

-1.43E-02 

-4.00E-01 

-1.63E-03 

3.99E-01 

1.58E-02 

28 

2 


1.47E-02 

2.74E-07 

-2.69E-08 

-5.79E-03 

-1.52E-02 

29 

1 

-1.34E+00 

9.53E-02 

1.36E+00 

2.50E-03 

-1.33E+00 

mmm I 

29 

2 

1.46E+00 

mssssm 

1.44E+00 

-3.00E-03 

KB 

1.03E-01 

30 

1 


2.40E-03 

-1.36E+00 

-2.50E-03 

1.38E+00 

2.98E-03 

30 

2 

1.42E+00 

4.83E-03 

1.44E+00 

-3.00E-03 

1.42E+00 

-2.05E-03 

31 

1 

-4.07E-03 

-1.44E-02 

-5.10E-07 

-1.52E-08 

-7.60E-03 

1.46E-02 

31 

2 

-4.51 E-01 

1.67E-02 

PT.LIJiil 

-2.51 E-03 


-1.86E-02 

32 

1 

BEE3&3 

9.11E-02 

1.37E+00 

3.91 E-03 

-1.34E+00 

m msm\ 

32 

2 

1.45E+00 


1.46E+00 

-4.70E-03 

1.48E+00 

9.61 E-02 

33 

1 

1.37E+00 

1.29E-03 

-1.37E+00 

-3.91 E-03 

1.39E+00 

4.16E-03 

33 

2 

1.44E+00 

6.22E-03 

1.46E+00 

-4.70E-03 

1.44E+00 

-3.39E-03 

34 

1 

-3.91E-01 

1.46E-02 

4.00E-01 

1.63E-03 

-3.99E-01 

-1.59E-02 

34 

2 

1.00E-02 

mwxvm 

-4.41E-07 

2.73E-08 

5.78E-03 

1.54E-02 

35 

1 

-1.31E+00 


1.36E+00 

2.50E-03 

-1.33E+00 

-9.46E-02 

35 

2 

MEE3S2M 

■B 

1.44E+00 

-3.00E-03 

1.46E+00 

9.69E-02 

36 

1 

1.38E+00 

-4.64E-03 

-1.36E+00 

-2.50E-03 

1.38E+00 

7.99E-03 

36 

2 

1.39E+00 

1.41E-02 

1.44E+00 

-3.00E-03 

1.42E+00 










































































































































































TABLE XXXV 


EIGENVALUES OF 44-BAR TRUSS 
5-MODE CORRELATION 
METHOD 2, 90 MODEL 


I 




I 


TEST 

EIGENVALUES IN Hz 

MODE 

REAL 

IMAGINARY 

1 

-1.87E+01 

1.19E+02 

2 

-1.91E+01 

-140E+02 

3 


-2.07E+02 

4 

-1.47E+0I 

-3.96E+02 

5 

-1.56E+01 

3.99E+02 


ANALYSIS 
EIGENVALUES IN Hz 



REAL 

■mamal 

1 

-1.95E+01 

-1.20E+02 

2 

-1.98E+01 

141E+02 

3 

-1.93E+01 

-2.12E+02 

4 


| 5 | -1.62E+01 | 4.02E+02 | 


CORRELATED 
EIGENVALUES IN Hz 



REAL 

usama | 

1 

-1.89E+01 

-1.19E+02 

2 

-1.93E+01 

140E+02 

1 3 

-1.87E+01 

2.07E+02 | 

4 

-1.47E+01 

3.96E+02 1 

5 

-1.55E+01 

-3.99E+02 
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TABLE XXXVI 


EIGENVELOCITIES OF 44-BAR TRUSS 
5-MODE CORRELATION 
METHOD 2, 90 MODEL 



TEST 

ANALYSIS 

f CORRELATED | 

M2EXM 

MODE 

REAL 

IMAGINARY 

REAL 

IMAGINARY 

KS 

| IMAGINARY | 

l 

1 

3.72E-03 

1.14E-02 

-4.18E-08 

1.42E-08 

4.17E-03 


i 

2 

3.56E-01 

mssssm 

3.96E-01 

wznszm 

3.63E-01 

1.81E-04 

i 

3 

1.07E-02 

-1.99E-03 

2.89E-09 

4.14E-08 

9.52E-03 

1.15E-03 

i 

4 

-4.39E-01 

8.23E-02 

-6.93E-01 

1.78E-02 

-4.46E-01 

-8.46E-02 

i 

5 


6.43E-02 

-3.21E-07 

-2.22E-07 

-4.79E-01 

-6.68E-02 

2 

1 

-7.38E-01 

1.01E-02 

7.99E-01 

Mxzssm 

-7.44E-01 

■Mil 

2 

2 

3.86E-01 

-3.20E-02 

3.82E-01 

-1.37E-03 

3.92E-01 

2.37E-02 

2 

3 

eomssm 

4.47E-03 


1.20E-02 

WSEEBM 

-1.60E-03 

2 

4 

5.05E-01 

-3.99E-01 

2.21E+00 

-1.38E-03 

5.00E-01 

3.93E-01 

2 

5 

2.39E+00 

-1.07E-01 

1.34E+00 

-3.19E-02 

2.37E+00 

1.03E-01 

3 

1 

7.64E-01 

1.44E-02 

-7.99E-01 

9.23E-03 


-1.50E-02 

3 

2 

3.43E-01 

3.08E-02 

3.82E-01 

-1.37E-03 

3.47E-01 

-2.36E-02 

3 

3 

9.10E-01 

-7.63E-03 

1.00E+00 

-1.20E-02 

9.17E-01 

2.45E-03 

3 

4 

2.33E+00 

-7.13E-02 

2.21E+00 

-1.38E-03 

2.33E+00 


3 

5 

5.93E-01 

-3.79E-01 

-1.34E+00 

3.19E-02 

6.57E-01 

3.93E-01 

4 

1 

4.43E-01 

2.29E-03 

-4.92E-01 

5.57E-03 : 

4.57E-01 

-3.15E-03 

4 

2 

-7.02E-03 

1.69E-02 

8.92E-07 

-3.29E-08 

-7.23E-03 

-1.35E-02 

4 

3 

-4.83E-03 

-1.32E-03 

-8.27E-07 

2.00E-10 

EKl^l 

3.82E-04 

4 

4 

-4.35E-02 

1.04E-03 

-1.96E-07 

1.19E-07 

EMiJ 

-4.06E-03 

4 

5 

4.36E-02 

1.59E-02 

4.19E-02 

1.25E-02 

2.60E-02 

-1.32E-02 

5 

1 

-7.32E-01 

9.02E-03 

7.93E-01 

-1.02E-02 

-7.39E-01 

-4.26E-03 

5 

2 

3.82E-01 

-3.23E-02 

3.78E-01 

WE5ES2M 

3.87E-01 

2.40E-02 

5 

3 


6.53E-03 

MEE3SM 

1.40E-02 


-3.66E-03 

5 

4 

1 4.64E-01 

-3.72E-01 

2.03E+00 

-1.44E-02 

4.56E-01 

3.65E-01 







































































































































































CONTINUATION OF TABLE XXXVI 


EIGENVELOCITIES OF 44-BAR TRUSS 
5-MODE CORRELATION 
METHOD 2, 90 MODEL 


J 

TEST j 

ANALYSIS n 

”* CORRELATED \ 


MODE 

REAL 

IMAGINARY | 

REAL 

IMAGINARY 

REAL 

IMAGINARY 

5 

5 1 

2.20E+00 

WBMSm 

1.23E+00 

-2.21 E-02 

2.18E+00 

8.12E-02 

6 

1 ! 

7.34E-01 

1.90E-02 

-7.93E-01 

1.02E-02 1 

7.41E-01 

-1.73E-02 

6 

2 

3.62E-01 

2.44E-02 

3.78E-01 

-8.17E-04 

3.67E-01 

-2.02E-02 

6 

3 

mSESBM 

2.17E-03 

-9.77E-01 

1.40E-02 

KaEBBB 

-3.60E-03 [ 

6 

4 

2.15E+00 

m 

2.03E+00 

-1.44E-02 

2.14E+00 


6 

5 

5.96E-01 

-3.50E-01 

-1.23E+00 

2.21 E-02 

5.92E-01 

3.57E-01 

7 

1 

-2.86E-03 

-1.15E-02 

8.32E-08 

-1.36E-08 

-4.17E-03 

8.95E-03 

7 

2 

-3.57E-01 

8.91E-04 

-3.96E-01 

9.41E-04 

-3.63E-01 

-2.29E-04 

7 

3 

-1.30E-02 

1.71E-03 

-1.47E-08 

-3.77E-08 

EMii 

-1.01E-03 

7 

4 

4.40E-01 


6.93E-01 

-1.78E-02 

4.46E-01 

8.51 E-02 

7 

5 

4.74E-01 

-6.33E-02 

5.79E-07 

2.30E-07 

4.79E-01 

6.67E-02 

8 

i 

-7.22E-01 

6.15E-03 

7.99E-01 

-9.23E-03 

-7.28E-01 

-3.71E-03 

8 

2 

3.62E-01 

wemm 

3.82E-01 

-1.37E-03 

3.67E-01 

2.10E-02 

8 

3 

9.11E-01 

-1.19E-03 

1.00E+00 

-1.20E-02 

9.19E-01 

4.74E-04 

8 

4 

5.00E-01 

-3.85E-01 

2.21 E+00 

-1.38E-03 

5.03E-01 

3.96E-01 

8 

5 

2.32E+00 

-1.01E-01 

1.34E+00 

-3.19E-02 

2.38E+00 

1.04E-01 

9 

1 

7.39E-01 

1.85E-02 

-7.99E-01 

9.23E-03 

7.47E-01 

-1.68E-02 

9 

2 

mK-vA'M 

2.51 E-02 

3.82E-01 

-1.37E-03 

3.72E-01 

-2.08E-02 

9 

3 


5.75E-04 

-1.00E+00 

1.20E-02 

-9.40E-01 

-2.04E-03 

9 

4 


-8.46E-02 

2.21 E+00 

-1.38E-03 

2.33E+00 

7.90E-02 

9 

5 

6.45E-01 

-3.83E-01 


3.19E-02 

6.44E-01 


10 

1 

-4.47E-01 

-2.10E-03 

4.92E-01 

-5.57E-03 

-4.57E-01 

3.10E-03 

10 

2 

1.25E-02 

-1.71E-02 

-9.61E-07 

3.35E-08 

7.27E-03 

1.36E-02 

10 

3 

1.83E-02 

1.55E-03 

7.29E-07 

5.15E-10 

4.24E-03 

-7.50E-04 
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CONTINUATION OF TABLE XXXVI 


EIGENVELOCITIES OF 44-BAR TRUSS 
5-MODE CORRELATION 
METHOD 2, 90 MODEL 



TEST 

ANALYSIS | CORRELATED } 

■Ml 

MODE 

REAL 

IMAGINARY 

REAL 

IMAGINARY | REAL | IMAGINARY | 

10 

4 

5.02E-02 

-6.55E-03 

1.17E-07 

-1.18E-07 

3.19E-02 

4.43E-03 

10 

5 

-1.27E-02 

-1.54E-02 

-4.19E-Q2 

-1.25E-02 

-2.56E-02 

1.31 E-02 ] 

11 

1 

-7.16E-01 

5.16E-03 

7.93E-01 

-1.02E-02 

-7.23E-01 

-2.69E-03 

11 

2 

3.58E-01 

-2.66E-02 

3.78E-01 

-8.17E-04 

3.63E-01 

2.13E-02 

11 

3 

8.92E-01 

-3.29E-03 

9.77E-01 

-1.40E-Q2 

9.00E-01 

2.59E-03 

11 

4 

4.60E-01 

-3.58E-01 

2.03E+00 

-1.44E-02 

4.59E-01 

3.68E-01 

11 

5 

2.14E400 

m-.hwm 

1.23E400 

-2.21 E-02 

2.19E+00 

8.14E-02 

12 

1 

7.49E-01 

1.50E-02 

-7.93E-01 

1.02E-02 

7.57E-01 

-1.56E-02 

12 

2 

3.40E-01 

3.02E-02 

3.78E-01 

-8.17E-04 

3.42E-01 

-2.30E-02 

12 

3 

8.91E-01 

m msm 

9.77E-01 

-1.40E-02 

8.97E-01 

4.00E-03 

12 

4 

2.15E400 

-7.70E-02 


-1.44E-02 

2.14E+00 

8.42E-02 

12 

5 

5.48E-01 

-3.47E-01 

-1.23E+00 

2.21 E-02 

6.05E-01 

3.58E-01 

13 

1 

7.45E-03 

2.27E-Q2 


2.97E-08 

8.41 E-03 

-1.78E-02 

13 

2 

7.09E-01 

-7.29E-04 

7.89E-01 

-2.96E-03 

7.24E-01 

-5.92E-04 

13 

3 

2.11E-02 

-3.89E-03 

8.65E-09 

8.36E-08 

1.86E-02 

2.22E-03 

13 

4 

KXE3SM 

1.56E-01 

-1.33E+00 

3.00E-02 

EH 

-1.60E-01 

13 

5 

-8.84E-01 

1.26E-01 

-6.49E-07 

-4.22E-07 

-9.19E-01 

-1.31E-01 

14 

1 

KESSSSM 


1.52E+00 

-1.61E-02 

-1.41E+00 

-2.81 E-02 

14 

2 

1.43E+00 

-5.98E-02 

1.51E+00 

1 -6.62E-03 

1.45E+00 

4.30E-02 

14 

3 

-1.57E+00 

1.01E-03 

-1.72E+00 

1.77E-02 

-1.58E+00 

1.86E-03 

14 

4 

-3.31E-01 

-2.60E-01 

9.44E-01 

1.22E-04 

-3.60E-01 

2.58E-01 

14 

1 5 

1.54E+00 


1.40E+00 

-2.31 E-02 

1.53E+00 


15 

1 

1.44E+00 

4.79E-02 

-1.52E+00 

1.61 E-02 

1.46E+00 

-4.34E-02 

15 

2 

1.35E+00 

WEzasm i 

1.51E+00 

-6.62E-03 

1.36E+00 

-4.61 E-02 




















































































































































































CONTINUATION OF TABLE XXXVI 


EIGENVELOCITIES OF 44-BAR TRUSS 
5-MODE CORRELATION 
METHOD 2, 90 MODEL 


1 

““ TEST ““""“1 

ANALYSIS j 

CORRELATED "1 


MODE 

REAL 

IMAGINARY 

REAL 

IMAGINARY 

REAL 

IMAGINARY 

15 

3 

1.59E+00 

-1.45E-02 

1.72E+00 

-1.77E-02 

1.60E+00 

4.51 E-03 

15 

4 

1.54E+00 

5.94E-02 

9.44E-01 

1.18E-04 

1.56E+00 

-5.82E-02 

15 

5 

-2.66E-01 

-2.53E-01 

-1.40E+00 

2.31 E-02 

-2.47E-01 

2.66E-01 

16 

1 

5.33E-01 

7.15E-04 

-5.92E-01 

4.41 E-03 

5.46E-01 

-1.44E-03 

16 

2 

BMJ 

2.01E-02 

1.15E-06 

-3.91E-08 


-1.60E-02 

16 

3 


-1.65E-03 

mxsasm 

-1.08E-08 


1.01 E-03 

16 

4 

-7.50E-01 

-1.02E-01 

-4.77E-06 | 

1.80E-06 

-7.78E-01 

1.01E-01 

16 

5 

7.27E-01 

■IWiM 

WSE3S2M 

2.29E-02 

7.21E-01 

-1.55E-01 

17 

1 

-1.41E+00 

4.39E-02 

1.54E+00 

-1.56E-02 

-1.43E+00 

-2.93E-02 

17 

2 

1.45E+00 

-5.99E-02 

1.53E+00 

-7.40E-03 

1.47E+00 

4.29E-02 

17 

3 

-1.61E+00 

1.05E-04 

-1.78E+00 

1.68E-02 

-1.63E+00 

2.93E-03 

17 

4 

-3.68E-01 

-2.92E-01 

1.06E+00 

4.69E-03 

-4.00E-01 

2.91 E-01 

17 

5 

1.71E+00 

3.98E-02 

1.57E+00 

w&Easm 

■ 

3 

i 

-5.19E-02 

18 

1 

1.43E+00 

5.55E-02 

-1.54E+00 

1.56E-02 

1.44E+00 

-4.67E-02 

18 

2 

1.41E+00 

4.89E-02 

1.53E+00 

-7.40E-03 

1.43E+00 

-4.19E-02 

18 

3 

-1.63E+00 

-8.20E-03 

-1.78E+00 

1.68E-02 

-1.64E+00 

3.90E-03 

18 

4 

1.71E+00 

7.36E-02 

1.06E+00 

4.68E-03 

1.74E+00 

-7.81 E-02 

18 

5 

-3.13E-01 

-2.86E-01 

-1.57E+00 

3.15E-02 

-3.03E-01 

2.99E-01 

19 

1 

mSE £3 

-2.29E-02 

-4.22E-08 

-2.62E-08 

-8.40E-03 

1.78E-02 

19 

2 

-7.12E-01 

8.41E-04 

-7.89E-01 

2.96E-03 

-7.24E-01 

4.95E-04 | 

19 

3 

-2.58E-02 

3.33E-03 

-2.33E-07 

-7.14E-08 

-1.87E-02 

-1.95E-03 

i 19 

4 

8.47E-01 

-1.62E-01 

1.33E+00 

-3.00E-02 

8.56E-01 

■I 3B31 

19 

5 

9.11E-01 

-1.25E-01 

8.76E-07 

4.42E-07 

9.20E-01 

1 1.31E-01 | 

20 

1 

-1.37E+00 

3.54E-02 

1.52E+00 

-1.61 E-02 

-1.38E+00 

Bm 
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CONTINUATION OF TABLE XXXVI 


EIGENVELOCITIES OF 44-BAR TRUSS 
5-MODE CORRELATION 
METHOD 2, 90 MODEL 



I TEST 

! ANALYSIS 1 

I CORRELATED ! 

IE22QI 

MODE 

REAL 

IMAGINARY 

Kza 

IMAGINARY 

REAL 


20 

2 

1.39E+00 

-4.97E-02 

ME53S2M 

-4.62E-03 

1.40E+00 

3.82E-02 

20 

3 

1.60E+00 

-3.09E-03 

1.72E-KX) 

-1.77E-02 

1.62E+00 

4.12E-04 

20 

4 

-3.19E-01 

•2.59E-01 

9.44E-01 

1.22E-04 

-3.54E-01 

2.66E-01 

20 

5 

1.53E+00 

4.37E-02 

1.40E+00 

-2.31E-02 

1.56E+00 

-5.26E-02 

21 

1 

1.42E+00 

5.54E-02 

-1.S2E+00 

1.61E-02 

1.43E+00 

-4.66E-02 

21 

2 

1.39E+00 

4.79E-02 

1.51E+00 

-6.62E-03 

1.41E+00 

-4.09E-02 

21 

3 

-1.58E+00 

-6.61E-03 

-1.72E+00 

1.77E-02 

-1.59E+00 

2.47E-03 

21 

4 

1.53E+00 

6.15E-02 

9.44E-01 

1.18E-04 

WMSSSM 

-6.52E-02 

21 

5 

-2.83E-01 

-2.56E-01 


2.31E-02 

1 -2.73E-01 

2.66E-01 

22 

1 

-5.37E-01 

-4.47E-04 

5.92E-01 

1 -4.41 E-03 


1.36E-03 

22 

2 

1.47E-02 

-2.04E-02 

-1.14E-06 

4.05E-08 

9.97E-03 

1.61E-02 

22 

3 

2.16E-02 

1.73E-03 

4.82E-07 

1.41E-08 

9.32E-03 

-1.20E-03 

22 

4 

7.59E-01 

9.60E-O2 

4.89E-06 

-1.81E-06 

7.78E-01 

-1.01E-01 

22 

5 

-6.98E-01 

-1.45E-01 

-1.12E+00 

-2.29E-02 

-7.21E-01 

1.54E-01 

23 

1 

-1.39E+00 

3.64E-02 

1.54E+00 

-1.56E-02 

-1.40E+00 

-2.62E-02 

23 

2 

1.41E+00 

BEEBSai 

1.53E+00 

-7.40E-03 

1.42E+00 

3.78E-02 

23 

3 

wEzzxm 

-2.20E-03 

1.78E+00 

-1.68E-02 

1.67E+00 

-5.73E-04 

23 

4 

-3.55E-01 

-2.90E-01 

1.06E+00 

4.69E-03 

-3.94E-01 

2.99E-01 

23 

5 

1.71E+00 

4.24E-02 

1.57E+00 

-3.15E-02 

1.75E+00 

Km 

24 

1 

MKSSSSM 

4.77E-02 

-1.54E+00 

1.56E-02 : 

1.47E+00 


24 

2 

1.37E+00 I 

5.98E-02 

1.53E+00 

-7.40E-03 

1.38E+00 

-4.74E-02 

24 

3 

ME23EM 

-1.25E-02 

1.78E+00 

-1.68E-02 

1.65E+00 

2.28E-03 

24 

4 

1.72E+00 1 

7.42E-02 

1.06E+00 

4.68E-03 

1.75E+00 

-7.21E-02 
















































































































































































CONTINUATION OF TABLE XXXVI 


EIGENVELOCITIES OF 44-BAR TRUSS 
5-MODE CORRELATION 
METHOD 2, 90 MODEL 


1 

TEST | 

ANALYSIS I 

CORRELATED | 

E ISM 

MODE 

REAL 


REAL 

IMAGINARY 

REAL 

IMAGINARY 

24 

5 

-3.04E-01 

-2.82E-01 

-1.57E+00 

3.15E-02 

-2.77E-01 

2.98E-01 

25 

1 

7.45E-03 

2.29E-02 

2.99E-07 

2.34E-08 

8.25E-03 

WBSE33M 1 

25 

2 

7.16E-01 

-2.82E-03 

7.98E-01 

-5.55E-04 : 

7.31E-01 

1.53E-03 

25 

3 

2.16E-02 

-4.08E-03 

3.07E-07 

7.79E-08 

1.96E-02 

2.38E-03 

25 

4 

-9.22E-01 

1.76E-01 

-1.46E+00 

4.35E-02 

-9.38E-01 

-1.82E-01 

25 

5 


1.31E-01 

-3.89E-07 

WEXS33M 

-1.01E+00 

-1.37E-01 

26 

1 

-2.15E+00 

8.52E-02 

2.35E+00 

-7.65E-03 

-2.17E+00 

-6.25E-02 

26 

2 

2.36E+00 

-7.76E-02 

2.50E+00 

-2.33E-02 

2.38E+00 

5.27E-02 

26 

3 

-1.88E+00 

-1.85E-02 

-2.11E+00 

1.14E-03 

-1.89E+00 

1.93E-02 

26 

4 

5.52E-01 

3.22E-01 

-1.08E+00 

2.86E-03 

5.83E-01 

-3.17E-01 

26 

5 

-2.01E+00 

-1.01E-01 

-1.87E+00 

-2.08E-03 

-1.98E+00 

1.12E-01 

27 

1 

2.21E+00 

6.37E-02 

-2.35E+00 

7.65E-03 1 

2.23E+00 

-5.42E-02 

27 

2 

2.24E+00 

9.78E-02 


-2.33E-02 

2.25E+00 

MMSm 

27 

3 

1.95E+00 

-3.56E-03 

2.1 1E+00 

iar.ij.kw 

1.97E+00 

-8.36E-03 1 

27 

4 

-1.99E+00 

mmssm 

b eees 

2.86E-03 



27 

5 

5.28E-01 

3.42E-01 

1.87E+00 

2.08E-03 

4.70E-01 

WB&gsM 

28 

1 

6.19E-01 

-2.44E-03 

-6.86E-01 

1.39E-03 

6.31 E-01 

1.88E-03 

28 

2 

-1.16E-02 

2.31E-02 

4.70E-07 

-4.91 E-08 

-1.24E-02 

-1.83E-02 

28 

3 

-1.19E-02 

-1.98E-03 

2.76E-08 

-2.25E-08 

-1.39E-02 

1.64E-03 

28 

4 

-1.38E+00 

WHBasm 

E ESSl 



2.02E-01 

28 

5 

1.33E+00 

2.56E-01 

2.09E+00 

| 2.11E-02 

1.34E+00 

-2.73E-01 

29 

1 

-2.13E+00 

8.20E-02 

2.33E+00 

■m 

-2.15E+00 

-5.96E-02 

29 

2 

WM3Z2M 

-7.94E-02 

2.47E+00 

-2.02E-02 

2.35E+00 

5.49E-02 

29 

3 

I -1.84E+00 

-1.53E-02 

-2.06E+00 

4.96E-03 

-1.85E+00 

1.61E-02 1 
















































































































































































CONTINUATION OF TABLE XXXVI 


EIGENVELOCITIES OF 44-BAR TRUSS 
5-MODE CORRELATION 
METHOD 2, 90 MODEL 



| TEST 

P ANALYSIS 

n~ CORRELATED | 

B M 

MODE 

REAL 

IMAGINARY 

| REAL 

IMAGINARY 

REAL 


29 

4 

5.07E-01 

2.91E-01 


8.36E-03 

5.34E-01 

-2.86E-01 

29 

5 

-1.84E+00 

-1.02E-01 

-1.71E+00 

-1.08E-02 

-1.80E+00 

1.12E-01 

30 

1 

2.16E+00 

7.48E-02 

-2.33E+00 

9.96E-03 

2.18E+00 

-5.95E-02 

30 

2 

227E+00 

8.21E-02 

2.47E+00 

[ -2.02E-02 

2.28E-KX) 

-7.1 IE-02 

30 

3 

-1.88E+00 

-2.74E-Q2 


4.96E-03 

-1.90E+00 

2.14E-02 

30 

4 

-1.82E+00 

-4.47E-02 

-9.86E-01 

8.37E-03 

-1.84E+00 

4.64E-02 

30 

5 

3.78E-01 

3.16E-01 

1.71E400 

1.08E-02 

3.94E-01 

-3.28E-01 

31 

1 

-5.72E-03 

-2.31E-02 

-8.74E-07 

-2.07E-08 

ESI 

1.80E-02 

31 

2 

on 

2.94E-03 

-7.98E-01 

5.55E-04 

-7.31E-01 


31 

3 

-2.64E-02 

3.52E-03 

7.48E-08 

-6.69E-08 

-1.97E-02 

-2.11E-03 

31 

4 

9.24E-01 

-1.83E-01 

1.46E+00 

-4.35E-02 

9.38E-01 

1.83E-01 

31 

5 

9.97E-01 

-1.29E-01 

1.33E-06 

4.96E-07 

1.01E-KX) 

1.36E-01 

32 

1 

-2.11E+00 

7.58E-02 

2.35E+00 

-7.65E-03 

-2.13E+00 


32 

2 

2.31E+Q0 

-6.57E-02 

2.50E+00 

-2.33E-02 

2.33E+00 

4.71E-02 

32 

3 


1.22E-02 

2.11E+00 

-1.14E-03 

2.02E+00 

-1.72E-02 

32 

4 

5.57E-01 

2.95E-01 

-1.08E+00 

2.86E-03 

5.91 E-01 

-3.03E-01 

32 

5 

-1.89E+00 

-1.02E-01 

-1.87E+00 

-2.08E-03 

-1.94E+00 

1.13E-01 

33 

1 

2.18E+00 

7.36E-02 

-2.35E+00 

7.65E-03 

2.20E+00 

-5.79E-02 

33 

2 

2.29E+00 

8.51E-02 


-2.33E-02 

2.31E+00 

-7.42E-02 

33 

3 

-1.93E+00 

-3.16E-Q2 

-2.11E+00 

1.14E-03 

-1.95E+00 

2 58E-02 

33 

4 

-1.99E+00 

-5.82E-02 


2.86E-03 

-2.01 E+00 

6.12E-02 

33 

5 

4.12E-01 

3.44E-01 

1.87E+00 

2.08E-03 

4.34E-01 

-3.58E-01 

34 

1 

-6.23E-01 

2.80E-03 

6.86E-01 | 

-1.39E-03 

-6.31 E-01 

-1.99E-03 



















































































































































































CONTINUATION OF TABLE XXXVI 


EIGENVELOCITIES OF 44-BAR TRUSS 
5-MODE CORRELATION 
METHOD 2, 90 MODEL 



TEST 

ANALYSIS 

CORRELATED | 


MODE 

REAL 


REAL 

IMAGINARY 

REAL 

IMAGINARY 

34 

2 

1.68E-02 

-2.34E-02 

-7.56E-07 

5.15E-08 

1.25E-02 

1.84E-02 

34 

3 

2.43E-02 

1.97E-03 

-3.05E-07 

3.79E-08 

1.39E-02 

-1.64E-03 

34 

4 

1.39E+00 

1.96E-01 

8.88E-06 

-3.26E-06 

1.44E+00 

-2.02E-01 

34 

5 

-1.31E+00 

-2.54E-01 

-2.09E+00 

-2.11E-02 

-1.34E+00 

2.73E-01 

35 

1 

-2.10E+00 

7.30E-02 

2.33E+00 

wssssm 

-2.11E+00 

-5.63E-02 

35 

2 

2.28E+00 

-6.80E-02 

2.47E+00 

-2.02E-02 

2.30E+00 

4.95E-02 

35 

3 

1.95E+00 

8.92E-03 

2.06E+00 

-4.96E-03 

1.97E+00 

-1.37E-02 

35 

4 

5.12E-01 

2.67E-01 

EH 

8.36E-03 

5.42E-01 

-2.74E-01 

35 

5 

-1.72E+00 

-1.03E-01 

-1.71E+00 

-1.08E-02 

-1.77E+00 

1.13E-01 

36 

1 

2.20E+00 

6.47E-02 

-2.33E+00 

9.96E-03 

2.21 E+00 

-5.54E-02 

36 

2 

2.21E+00 

9.51E-02 

2.47E+00 

-2.02E-02 

2.23E+00 

-7.75E-02 

36 

3 

1.91E+00 

-7.01E-03 

2.06E+00 

-4.96E-03 

1.92E+00 


36 

4 

-1.82E+00 

WEBBm 

-9.86E-01 

8.37E-03 

•1.83E+00 

6.13E-02 

36 

5 

4.79E-01 

3.14E-01 

1.71E+00 

1.08E-02 

4.28E-01 

-3.27E-01 


















































































































4.8 Concluding Remarks 

The result of the system identification using equation (3.34) appeared 
satisfactory when a small number of modes were selected. However, as the number of 
modes increased, the quality of the eigenvalues and eigenvelocities deteriorated. The 
reason for this degradation is that the differences between the modal deformations of the 
higher modes of the test model and the analytical model are higher than those of the 
lower modes. In fact, generally speaking, higher modes, even if they are system level, 
would contain some level of local modes. Because of the severe local differences 
between the test model and the analytical modes, the local modes of the two models are 
extremely different. As a result, these extreme local differences in modal deformations 
will corrupt the final result. Overall, the system identification using method 1 provides 
successful results with one to three modes. It is recommended, however, to use more 
modes, because the first mode does not represent the entire structural system from the 
kinetic energy standpoint. 

As a result of system identification using method 1, the test damping matrix 
becomes complex. It was discovered, by observation, when applying method 1 to the 
12-BAR truss and the 44-BAR truss, that even for highly damped structural systems, 
the imaginary portion of the test damping matrix is much smaller (two to three orders of 
magnitude) than the real portion. As a test, the system identification was repeated 
without the i maginar y portion of the test damping matrix. The results of these computer 
runs were very si milar and sometimes identical to those done with the entire test 
damping matrix. Therefore, the option in method 1 that eliminates the imaginary 
portion of the test damping matrix was left as part of the FORTRAN program. Because 
the results of the system identification using a full complex test damping matrix are so 
similar to those using the real portion of the test damping matrix, no tables or figures are 
provided here. 

The result of the system identification using equations (3.47), and (3.48) 
appeared satisfactory when any number (small or large) of modes was selected. The 
computer runs for the class of structural systems in this study required two to fifteen 
iterations to converge. A total of sixteen computer runs for both the 12-BAR truss and 
the 44-BAR truss were made. Two of these computer runs did not converge. These 
nonconverging computer runs were the 95 model of the 1 2-BAR truss using two modes, 
and the 95 model of the 44-BAR truss using three modes. There were some other 
computer runs that did not converge at the beginning, but when the convergence criteria 
were loosened up, they converged. Overall, the system identification using method 2 
provides successful results with one to five modes. It is recommended, however, to use 
more than one mode, since the first mode does not represent the entire structural system 
from the kinetic energy standpoint. With an increase in the number of modes, however, 
the number of iterations and the computer usage time increases. It is recommended to 
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use only the important modes with the highest kinetic energy when using method 2 to cut 
down the number of iterations and eliminate the possibility of nonconvergence. Also in 
the case of nonconvergence, it is recommended to use a smaller number of modes rather 
than loosening up the convergence criteria because when the convergence criteria is 
loosened up, the quality of the eigenvalues and eigenvectors degrade for all modes. 

When using a small number of modes, both methods 1 and 2 were equally 
successful in correlating the eigenvalues, and the correlated eigenvalues are within a 
small percentage, most often less than one percent, of the test eigenvalues. 

When a large number of modes (more than three modes) were selected for the 
system identification, method 2 provided accurate results, and method 1 converged to 
incorrect results. The reason for the higher success of method 2 is that this method is 
based on an iterative technique given a set of convergence criteria. This means that if the 
desired solution (eigenvalues and eigenvelocities) are not reached, the FORTRAN 
program changes the damping coefficients by some tolerance and repeats the problem 
until an acceptable solution is achieved. The disadvantage of method 2 over method 1 is 
that it requires more computer usage time. Each iteration of method 2 requires 
approximately as much computer usage time as that required during all phases of 
method 1. 

Method 1 appeared to be more successful than method 2 when a small number 
of modes was selected for the system identification. The success here is defined as the 
quality and closeness of the eigenvelocities, in other words, the correlated 
eigenvelocities came closer to the test eigenvelocities using method 1 . This success and 
better performance of method 1 can be attributed to the closed form solution of the 
equation for the damping matrix. Perhaps if the convergence criteria for method 2 
considered the differences between the eigenvelocity vectors (as opposed to kinetic 
energy values) of the test model and the correlated model, method 2 would be more 
successful than method 1 . This convergence criteria would definitely be more stringent, 
because the size of the eigenvelocity matrix is n-by-m as opposed to m-by-m of the 
kinetic energy matrix. Also, the kinetic energy matrix is a diagonal matrix, which means 
that there are less terms (m terms) in the matrix to deal with than the number of terms 
consisting the eigenvelocity matrix (n*m terms). The disadvantages of making the 
convergence criteria in method 2 more stringent in order to achieve better quality 
eigenvelocities are the increase in number of iterations, increase in computer usage 
time, and increase in the possibility of non-convergence. 

Overall, method 1 is somewhat better than method 2 because of the following: 

1) It does not need convergence criteria, thus, the analyst does not have to spend 
time on setting convergence criteria. 
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2) It requires only one iteration, thus it takes less computer usage time to execute. 

3) The test eigenvelocities of method 1 are closer to the test eigenvelocities. 
Therefore, the eigenvectors of method 1 are more accurate to use in decoupling the 
equation of motion for load analysis when either the mode displacement method or 
the mode acceleration method are used. 
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CHAPTER V 

CONCLUSIONS AND FUTURE WORK 


Two approaches toward structural modification were proposed to correct the 
nonproportional damping matrix of a truss structure. Several formulations for both 
methods were derived. Method 1 uses the weighted difference between the test damping 
matrix and the analytical damping matrix as the basis for a minimization problem with 
the orthogonality condition as the constraint equation. Method 2 uses the weighted 
difference between the test damping matrix and the analytical damping matrix, as well 
as the weighted difference between the test stiffness matrix and the analytical stiffness 
matrix, as the basis for a multi-objective minimization problem with the equation of 
motion as the constraint equation. 

Although the formulations of method 1 of this study modify only the damping 
matrix, this method can also be applied to structures whose stiffness matrix contains 
inherent inaccuracies. In fact, the same structures (with the same spatial properties) 
were used for both methods to examine method 1 for structures with inaccuracies in both 
the damping matrix and the stiffness matrix, and to compare the results of method 1 with 
those of method 2. 

A FORTRAN program was developed which uses the formulations of methods 
1 and 2 for system identification of a structural system, which can either read the 
user-generated spatial matrix data or interface with MSC/NASTRAN OUTPUT4 
format data. The FORTRAN program can also provide simulated data to replace actual 
test data and extract the complex eigenvalues and eigenvectors of structural systems 
possessing rigid body motion. 

The entire methodology, including formulations for both methods, was 
developed and checked using a simple four-degree-of-freedom system. Then the 
methods were applied to two classes of structures, namely, a plane truss and a space 
truss. The spatial property matrices of both trusses were varied in such a manner that the 
axial, bending, and (in the case of the space truss) torsional modes would couple. Up to 
50 percent of the coefficients of the spatial property matrices were varied by up to 10 
percent of the value of the analytical matrices. The results of this study showed nearly 
100 percent improvement of the correlated eigensystem over the analytical 
eigensystem. 

The performances of the methods developed in this study were compared, and it 
was concluded that method 1 is a better method to use for system identification when up 
to three modes are selected for the process. Also in this comparison, it was concluded 
that method 2 can handle a larger number of modes in system identification. However, 
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the computer usage time and the analyst’s time needed to set up and test convergence 
criteria with each problem when using method 2 would require extra effort. 

The results of this study for a simple four-degree-of-freedom system, a plane 
truss structure, and a space truss structure prove that the objectives of this dissertation, as 
stated in the Introduction, have been fully achieved. 

Only simulated data were used in this study and although the author made a 
large number of changes in the spatial property matrices of the analytical model in order 
to simulate the test data, the real test of the methods proposed in this study will be their 
imp lementation in an actual modal survey test The methodology, formulations, and 
FORTRAN program developed in this study should be applied to the measured data 
from an actual modal survey test of a structure that possesses complex modes. Future 
work relating to this study should consist of both the implementation of the proposed 
formulations to a modal survey test and the development of more accurate analytical 
methods to solve the set of governing equations ((3.47) and (3.48)) in method 2. 
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APPENDIX A 
FORTRAN PROGRAM 
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c 

c 


INTEGER LDA,LDB,LDEVEC,N 

PARAMETER (N= 72 , NN=36 , MM=5 , LDA=N , LDB=N . LDEVEC=N) 


£******************************************************************** 


C If IINPUT=1, this program will be a simulation/generator program. 
C If IINPUT*0, this program will be a test correlation program. 

C If IDAMP=1, this program will correct the damping matrix. 

C If ISTIFF*1, this program will correct the stiffness matrix. 
PARAMETER (IINPUT=0, IDAMP=1 , IST1FF=0) 


PARAMETER (nm=500) 


C If IREAD=1, this program will read a MSC/NASTRAN output4 file. 
C If IFREQ=1, this program will use the CG elgenproblem routine. 
PARAMETER (IREAD=1, IFREQ=1) 


Integer lerr.matz 

double precision arl(nm,n),a11(nm,n),wrl(n),w11(n), 

X zrl(nra,n),zil(nm,n),zr2(nm,n),z12(nm,n), 

x fvl(n),fv2(n),fv3(n) 

C0MPLEX*16 P.T6 

C DOUBLE PRECISION REAL,AIMAG,R,T5 

DOUBLE PRECISION R,T5 
REAL REAL'AIMAG 
INTEGER I,NOUT,NNl,NN2 
REAL AHACH GPICG PI VAR 

C COMPLEX a(lda,n)!alpha(n),b(ldb,n),beta(n),eval(n),evec(ldevec,n) 

COMPLEX BETAI (500) , EVAL (500) , EVEC(500,500) , AC0RG(500, 500) 

C COMPLEX A(500, 500) , B (500, 500) , BETAI (500) , EVAL(500) , EVEC(500, 500) 
REAL ALPHA (500),BETA(500),ZR( 500 , 500) , Z I (500 , 500) , ALF 1(500) 

REAL AR (500, 500), AI (500, 500) 

REAL BR(500,500) ,BI (500,500) ,ALFR(500) 

COMPLEX AW(500,500),AVEC(500,500),AVEC T(500,500) 

COMPLEX DUM19 (500, 500) , DUM20 (500 , 500) ,DUM21 (500,500) 

COMPLEX DUM1 (500,500) , DUM2 (500 , 500) ,DUM3 (500, 500) , DUM4 (500 , 500) 
COMPLEX DUM6(500,500) ,DUM7(500,500) ,DUM8(500,500) ,DUM9(500,500) 
COMPLEX DUM10 ( 500 , 500 ) , DUM1 1 (500 , 500) , DUM12 (500 , 500) 

COMPLEX DUM13(500,500) ,DUM14(500,500),DUM15(500,500) 

COMPLEX DUM16(500,500) ,DUM17(500,500),DUM18(500,500) 

COMPLEX AKC(500,500) ,AMC(500,500) ,ACC(500,500) 

COMPLEX TW(500,500) ,TVEC(500,500) ,TVEC T(500,500) 

COMPLEX AVEC 0(500,500) ,AVEC D T(500,500) ,AKORG(500,500) 

COMPLEX TVEC 0(500,500) ,TVEC _ D"T(500,500) 

COMPLEX EB (500 ,500) ,TB 0(5007500) ,TB(500,500) ,CFAC(500, 500) 
COMPLEX EA (500 , 500) , TAX500 , 500) , AKT (500, 500) , ACT (500 , 500) 

COMPLEX 0UMM1,DUM5(500, 500) 

REAL AK (500 ,500) , AM (500, 500) , AC (500, 500) 

REAL ITER(500) ,AA(500,500) 

COMPLEX T,U 

COMPLEX A(500,500) ,B(500,500) 

INTEGER NROW.NCOL, J,K, II, 12, 13,14, IFLAG 
C EXTERNAL AMACH.GPICG.GVCCG.UMACH 

CHARACTER MATRIX*80 
CHARACTER*12 D0C1 
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c 

Q******************************************************************** 

IF (I INPUT .EQ. 1) D0C1='TR441.IN' 

IF (I INPUT .EQ. 0) D0C1-'TR44.IN' 

OPEN (UNI T= 1 , FILE-D0C1 .STATUS- ‘OLD’) 

OPEN (UNI T-3 , FILE* ' TR121 . OUT ' , STATUS= ' OLD ' ) 

OPEN (UNIT-2 , FI LE- ' TR12 .OUT ' , status- ' new ' ) 

OPEN (UNIT-4 .FILE-' SCR1 .OUT ' , status= ' new ’ ) 

IF(IINPUT .EQ. 1) THEN 
OPEN(UNIT=5, FILE- 'SCR2.0UT ' , status- ' new' ) 

ELSE 

ENDIF 


£**** **************************************************************** 

c 




c 

c 

c 

c 

c 

c 

c 


Variable Definition 


$$$ 

$$$ 

$*$ 

$$$ 

$$$ 

$$$ 

$$$ 




Q******************************************************************** 


C N=2*NN 
C NN 
C MM 

C AK(NN.NN) 

C AC(NN.NN) 

C AM(NN.NN) 

C AK(NN.NN) 

C AC(NN.NN) 

C AM(NN.NN) 

C A(N.N) 

C B(N,N) 

C EVAL(N) 

C EVEC(N.N) 

C AW (MM, MM) 

C AVEC(NN.MM) 

C AVEC_T (MM,NN) 
C TW ( I , I ) 

C TVEC(NN,MM) 

C TVEC_T (MM,NN) 
C AVEC_D 
C AVEC_D_T 
C TVEC_D 
C TVEC_D_T 
C EB(MM.MM) 

C TB O(MM.MM) 

C TBlMM.MM) 

C CFAC(MM.MM) 


number of degree of freedom 
number of inodes 
stiffness matrix 
damping matrix 
mass matlrx 

complex form of stiffness matrix 
complex form of damping matrix 
complex form of mass matrix 
A matrix 
B matrix 

subroutine calculated eigenvalues 
subroutine calculated eigenvectors 
analytical frequencies 
analytical eigenvectors 
transpose of analytical eigenvectors 
test frequencies 
test eigenvectors 
transpose of test eigenvectors 
analytical velocity 
transpose of analytical velocity 
test velocity 
transpose of test velocity 
analytical orthogonality number 
old test orthogonality number 
test orthogonality number 
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c 

c 

c 

c 

c 

c 

c 


In this section, The stiffness, mass, 
damping, test el gen vectors, and test 
eigenvalues are read. 


$$$ 

$$$ 

$$$ 

ss$ 

$» 

m 


IFLAG=0 

C REAO(l, 17)NR0W 

C WRITE(2,17)NR0W 

C17 FORMAT ( 18) 

C TYPE 2, 'TITLE*DELTA AKC *4.' 

c***************************************************************************** 

C The following two lines are for use In LZIT routine. 

DO 2 1*1, N 
2 ITER(I)— 1 


Q ***************************************************************************** 


C If 1read=l, then the output4 format of MSC/NASTRAN is read 
IF(IREAD.EQ.l) THEN 
CALL RNAS(AK,AM,AC,NN) 

DO 3 1*1, NN 


00 4 J*1,NN 
AKC(I, J)*AK(I, J) 
AMC(I, J)*AM(I, J) 
ACC(I, J)*AC(I, J) 
ACORG(I,J)*ACC(I, J) 
AKORG(I, J)=AKC(I, J) 
4 CONTINUE 

3 CONTINUE 


ELSE 

C Read mass matrix 

NROW*NN 
NCOL=MM 
DO 18 I=1,NR0W 
DO 19 J=1 ,NROW 
READ(1,20)AM(I, J) 
AMC(I,J)*AM(I,J) 

C WRITE (*, 20) AM(I ,J) 

C WRITE(*,27)AMC(I, J) 

27 FORMAT ( 10X , 2D20 . 6) 

20 FORMAT (F10.6) 

19 CONTINUE 

18 CONTINUE 


C Read stiffness matrix 
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DO 21 1=1 ,NROW 
DO 22 J=1 ,NROW 
READ(1,20)AK(I, J) 

AKC(I,J)=AK(I, J) 

AK0R6 ( I , J) e AKC ( I , J ) 

TYPE *, I, J,AKC(I, J) 

C WRITE(*,20)AK(I, J) 

C WRITE(2,20)AK(I,J) 

22 CONTINUE 
21 CONTINUE 

C Read damping matrix 

DO 23 I=l,NROW 
DO 24 J=1 ,NROW 
READ(1,20)AC(I,J) 

ACC(I , J)=AC(I, J) 

ACORG(I, J)=ACC(I, J) 

C WRITE (*,20) AC ( I, J) 

C WRITE (2, 20) AC (I, J) 

24 CONTINUE 

23 CONTINUE 

ENDIF 

C If I INPUT Is not zero then this run is an input generator, and the 
C following read section will be skipped. 

IF {IINPUT .EQ. 1) GO TO 5 

C Read the test frequencies 

DO 30 I =1 ,MM 

READ (3,31) TW (1,1) 

31 FORMAT (2E20. 9) 

C WRITE(*,31)TW(I, I) 

30 CONTINUE 

MATRIX=' TEST EIGENVALUES TW' 

CALL WRTT (MATRIX , TW, MM , MM) 


C Read the test eigenvectors and eigenvelocites 

DO 40 1=1 ,MM 
DO 41 J=1,NN 
READ(3 ,42) TVEC_D(J , I) 

42 FORMAT (2E20. 9) 

41 CONTINUE 

40 CONTINUE 

DO 43 1=1, MM 
DO 44 J=1 ,NN 
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READ(3,42)TVEC (J, I) 
44 CONTINUE 

43 CONTINUE 


MATRIX= ' TEST EIGENVECTORS TVEC’ 

CALL WRTT (MATRIX, TVEC, NN,HM) 

MATRIX= ' TEST EIGENVELOCITIES TVEC O' 

CALL WRTT (MATRIX, TVEC D.NN.MM) 




c 

c 

c 

c 

c 

c 

c 


In this section, A and B matlces are formed. 


$$$ 

m 

$$$ 

$$s 

$$$ 

$$$ 

sss 




5 REWIND(UNIT*4) 

«*$$$$$$$»$$$$$«$*$$*$$**$»$$*$$$$*$$$$*$*$$$$ 

C Initialize the A and B matrices. 


DO 16 1*1, N 
EVAL(I)*(0. ,0.) 

DO 15 J=1,N 

EVEC(I,J)*(0. ,0.) 

AR(I,J)*(0.,0.) 

BR(I,J)*(0.,0.) 

AI(I,J)-(0.,0.j 

BI(I,J)*(0.,0.) 

DUM19(I, J)*AKC(I, J) 

15 CONTINUE 

16 CONTINUE 


c s$s 


C In this section, complex eigenvalues $$$ 
C and eigenvectors are extracted using $$$ 
C the CG subroutine $$$ 
C $*$ 


c$$$s$$$ss$$s$s$$$$$$$$$$$$$s$$$$$s$$$$$ss$$sss$ss$s 


c If IFREQ=1 use the CG subroutine for eigenproblem solution. 

IF(IFREQ .NE. 1) GO TO 3320 

£*******★****★**★******************************************************** 
C In this section the A=AR1,AI1 Is written into file 4. The solution 


- 182 - 


C of the problem Is AX=Laroda*X. The A matrix here Is -(B**-1)*A. 

C DUM4 matrix Is the Inverse of DUM1 or Mass matrix. 

CALL MAT1NVC(DUM19,DUM20,NN,NR) 

CALL MULT ( DUM 1 9 , DUM20 , AMC , NN , NN , NN) 

CALL MULT (0UM2 1 , DUM20 , ACC , NN , NN , NN) 

C DUM5 matrix is the A matirx for CG subroutine. 

C CALL MULT ( DUM5 , DUM1 , AKC , NN , NN , NN) 

DO 3000 1=1 , NN 
DO 3010 J=1 ,NN 
WRITE(4,3020)AR(I , J) ,AI(I, J) 

3020 FORMAT (2E20. 9) 

3010 CONTINUE 
3000 CONTINUE 


DO 3030 I=1,NN 
DO 3040 J=1,NN 
I F ( I .EQ. J) THEN 

T=(1.,0.) 

ELSE 

T=(0. ,0.) 

ENDIF 

WRITE(4,3020)T 
3040 CONTINUE 
3030 CONTINUE 

DO 3070 1=1 r NN 
DO 3080 J=1 ,NN 
DUM19(I, J)=-DUM19(I,J) 
WRITE(4,3020)DUM19(I, J) 
3080 CONTINUE 

3070 CONTINUE 

DO 3090 1=1, NN 
DO 3100 J=1,NN 
DUM21 (I, J)=-DUM21 (I, J) 
WRITE (4, 3020) DUM21 (I , J) 
3100 CONTINUE 

3090 CONTINUE 

REWIND(UNIT=4) 


DO 3200 1=1 ,NN 
DO 3200 J=1,NN 

3200 READ(4,3210)AR1(I,J) , AI1(1,J) 

3210 FORMAT (2E20.9) 

DO 3230 1=1, NN 
DO 3230 J=1 , NN 

3230 READ (4 , 321 0) AR1 ( I , J+NN) , AI 1 ( I , J+NN) 
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3240 


00 3240 1=1, NN 
DO 3240 J=1 ,NN 

REA0(4,3210)AR1(I+NN, J) ,AI1(I+NN, J) 

DO 3250 1=1, NN 
DO 3250 J=1,NN 
3250 READ (4 , 32 10) AR1 ( I +NN , J+NN) , AI 1 ( I+NN , J+NN) 

REWIND(UNIT=4) 

matz=l 

1err=l.E-20 

CALL cg(nm,n,arl,ail,wrl,w11,matz,zrl,zil,fvl,fv2,fv3,1err) 


IF(IFLAG .EQ. 5) GO TO 3301 

TYPE*,' MODE REAL IMAGINARY' 

TYPE * 1 ******** ********* ************ 

3301 DO 3300 1=1, N 

WRITE(4, 3311)1. /CMPLX(WR1(I),WI1(I)) 

3311 FORMAT(2E20.9) 

IF(IFLAG .EQ. 5) GO TO 3300 

IF( I . LT . 10) WRITE (*,3312)1,1 . /CMPLX (VfRl (I) v WI1 (I) ) 

3312 F0RMAT(5X,I5,3X, F15.4,3X,F15.4) 

3300 CONTINUE 


C ********** NORMALIZE SO THAT MODULUS OF LARGEST 
C COMPONENT OF EACH VECTOR IS 1 ********** 

C DO 3259 K=l,5 
3259 IJ1=1 
IJ2=N 

3275 DO 3260 J = IJl.N 
DO 3270 I = 1, N 

IF (I .EQ. 1) T5 = DABS(ZR1(I, J)) 

R « DABS (ZR1 ( I , J) ) 

C TYPE M,ZR1(I,J),ZI1(I,J) 

IF (R .GE. T5) THEN 
T5 = R 
15=1 
ELSE 
ENDIF 

3270 CONTINUE 

C TYPE V FIRST TIME', 15, ZR1(I5.J),ZI1(I5,J) 

DO 3280 1=1, N 
T6= 

X DCMPLX(ZR1(I, J) ,ZI1(I , J) )/DCMPLX(ZRl(I5, J) ,ZI1(I5, J)) 

C ZR1 (I , J)=REAL( 

C X CMPLX(ZR1 (I, J) ,ZI1(I ,J) )/CMPLX(ZRl (15, J) ,ZI1 (15, J) ) ) 

C ZI1(I,J)=A1MAG( 

C X CMPLX (ZR1 (I, J) ,Z11 (I, J) )/CMPLX(ZRl(I5, J) ,ZI1(I5, J))) 

C T6= 

C X CMPLX ( ZR1 ( I , J ) ,ZI1(I,J)) 

C IF(ABS(ZR1(I,J)) .GT. 1.) THEN 

C IJ1 = IJ1 - 1 

C GO TO 3275 

C ELSE 

C ENDIF 

C TYPE M,ZR1(I,J),ZI1(I,J) 
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IF(IFLAG .EQ. 0 .AND. 

XJ .LE. NN .AND. ABS(REAL(T6)) .GT. 1.) THEN 
y urrrIJ P \ M°° N0T USE M0DE J\J,ABS(REAL(T6)), 1 MAG. OF 

A V tv I UK / 1 • 

ELSE 

ENDIF 

WRITE(4,3290)T6 
3290 FORMAT (2E20.9) 

3280 CONTINUE 

3260 CONTINUE 
C3259 CONTINUE 


REWIND(UNIT=4) 

DO 3330 1*1, N 
READ(4,3340) EVAL(I) 

C WRITE(*,3340) EVAL(I) 

3340 FORMAT (2E20. 9) 

3330 CONTINUE 

DO 3350 J=1 ,N 
DO 3360 1=1 ,N 

READ(4,3340) EVEC(I.J) 

3360 CONTINUE 
3350 CONTINUE 

C II AND 12 ARE COUNTERS 

Il=N/2 

I2=l+N/2 

C FORM THE A MATIRX 

DO 50 1=1,11 
DO 50 J=I2,N 
A(I, J)=AM(I, J-I2+1) 

50 AR(I,J)*AM(I,J-12+1) 

DO 51 1=12, N 
DO 51 J=1,I1 
A ( I , J ) = AM (I-Il t J) 

51 AR(I, J)=AM(I-I1, J) 

DO 52 1=12, N 
DO 52 J=I2,N 

AR(I , J)=REAL(ACC(I-I2+1,J-I2+1) ) 
AI(I, J)=AIMAG (ACC (I-I2+1.J- 12+1) ) 

52 A(I, J)=ACC(I-I2+1 , J-I2+1) 

C FORM THE B MATIRX 

DO 53 1=1,11 
DO 53 J-1,11 
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53 


B(I, J)*AM(I, J) 
BR(I,0)=AM(I,J) 


DO 54 1=12, N 
DO 54 J=I2,N 

B(I, J)=-AK(I-I2+1, J-I2+1) 
54 BR(I, J)=-AK(I-I2+1, J-I2+1) 


asmmmmmsmummimi 
C Since the definition of A and B matrix In SIHL Is 
C different, that Is, A=-B and B*A, the following 
C equlvalenclng is performed. 


59 


C 

C 

117 

115 

116 


DO 116 1=1, N 
DO 115 J=1,N 

AA(I, J)=-B(I, J) % , % 

WRITE (*, 117)1, J,A(I,J),B(I,J) 

WRITE (2 ,117)I,J,A(I,J) ,B(I,J) 

F0RMAT(2X,I2,2X,I2,2X,F15.6,2X,F10.6,5X,F15.6,2X,F10.6) 


CONTINUE 

CONTINUE 


IF(IFREQ .EQ. 1) 60 TO 3320 


cs!Is!$$lsss$!«s$Ss$s$$s$$$ss$$$ss$$sss$$s$$s$$||| 

$$$ 
m 
$s$ 
$$$ 
$$$ 


In this section, complex eigenvalues 
and eigenvectors are extracted. 


C 

c 
c 
c 
c 
c 
c 

C DETERMINE THE COMPLEX EIGENVALUES AND EIGENVECTORS 
C CALL GVCCG(N,AA,LDA, A, LDB, ALPHA, BETA, EVEC.LDEVEC) 

C CALL LZHES(N,AA, N, A, N, EVEC, N, .TRUE.) 

C CALL LZIT(N, AA,N, A, N, EVEC, N,. TRUE., ITER, ALPHA, BETA) 


S 


EPS1 = 1.0E-20 
I ERR = 100000000 
CALL CQZHES(NM,N,BR,BI,AR,AI, 
CALL CQZVAL(NM,N,BR,BI,AR, AI, 
.TRUE..ZR.ZI.IERR) 

CALL CQZVEC(NM,N,BR,BI, AR.AI, 


.TRUE. ,ZR,ZI) 
EPSl.ALFR.ALFI.BETA, 

ALFR.ALFI ,BETA,ZR,ZI) 


C 

11 


DO 10 1=1, N 

IF (BETA(I) .NE. 0.0) THEN 
EVAL(I)=CMPLX(ALFR(I) , ALFI (I) ) /BETA(I) 


DO 1110 J=1,N 

EVEC(I,J)=CMPLX(ZR(I,J),ZI(I.J)) 
WRITE(* , 11) EVEC (I , J) 
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o o o o o 


FORMAT (5X, I5,3X,F15.7,5X, F15.7) 
1110 CONTINUE 
ELSE 

C EVAL(I)=AMACH(2) 

END IF 

WRITE(*,11)I,EVAL(I) 

10 CONTINUE 


P I =GPI CG (N , N , A , LDA , B , LDB , ALPHA , BETA , EVEC , LDEVEC) 
CALL UMACH(2,N0UT) 

CALL WRCRN('EVAL',1,N,EVAL,1,0) 

CALL WRCRN ( ' EVEC 1 , N , N, EVEC , LDEVEC , 0) 

WRITE (NOUT, 1 (/,A,F8.5) ’) 'PERFORMANCE INDEX = ‘.PI 


C Initialize the AW and AVEC matricies 

3320 DO 130 1=1, MM 

DO 131 J=1,NN 
AW(I,J)=(0.,0.) 

AVEC(J, I)=(0. ,0.) 

131 CONTINUE 
130 CONTINUE 


C FORM THE EIGENVALUE, AW, AND EIGENVECTOR EVE MATIRCES 
C AW AND AVEC MATRICES ARE N/2*N/2 


AW(l,l)=EVAL(2) 

AW(2.2)=EVAL(3) 

AW(3,3)=EVAL(5) 

AW(4,4)=EVAL(7) 

AW(5, 5)=EVAL(10) 
C AW(5,5)=EVAL(14) 

AW(6,6)=EVAL(14) 


DO 1150 1=1, NN 
AVEC D ( I , 1 ) =EVEC (I ,2) 
AVECTl,l)=EVEC(I+NN,2) 
AVEC D(I ,2)=EVEC(I ,3) 
AVECll,2)=EVEC(I+NN,3) 
AVEC D(I,3)=EVEC(I,5) 
AVECll,3)=EVEC(I+NN,5) 
AVEC D ( I ,4) =EVEC (1,7) 
AVECX I , 4) =EVEC ( I+NN , 7 ) 
AVEC D (I , 5)=EVEC(I , 10) 
AVECll,5)=EVEC(I+NN,10) 
AVEC D(I,6)=EVEC(I,14) 
AVECTI,6)=EVEC(I+NN,14) 
1150 CONTINUE 


C*** 
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C This sction Is to provide simulated/test modes and mode shapes for the 
C analysis model . 


IF (I INPUT .EQ. 0) GO TO 3380 

DO 3390 1=1, MM 
WRITE(5,3400)AW(I,I) 

3400 FORMAT (2E20.9) 

3390 CONTINUE 

DO 3410 1=1, MM 
DO 3420 J=1 ,NN 
WRITE (5, 3400) AVEC_D(J,1) 
3420 CONTINUE 
3410 CONTINUE 

DO 3430 1=1, MM 
DO 3440 J=1,NN 
WRITE (5, 3400) AVEC (J,I) 
3440 CONTINUE 
3430 CONTINUE 


jYJ”!! P VI*;S;*lL T R|[iAME SCR2.0UT TO TR121.0UT **************' 

TYPE *' ' RENAME SCR2.0UT TO TR121.0UT' 

TYPE *'■ RENAME SCR2.0UT TO TR121.0UT’ 

type *' - RENAME SCR2.0UT TO TR121.0UT* 

TYPE *!’ RENAME SCR2.0UT TO TR121.0UT' 

ELSE 

ENDIF 

IF (I INPUT .EQ. 1) GO TO 1000 

c ************************************************************************** 


C WRITE THE EIGENVALUES 


3380 MATRIX*' ANALYSIS EIGENVALUES AW' 


IF(IFLAG.EQ.5)G0 TO 149 


hatri*='ha!s'opt?! eigenvalue BASED ON C.(C-OELTA C)' 
ELSE 

MATRIX* 'MASS OPT., EIGENVALUE BASED ON C=(C-REAL (DELTA 


ELSE 

IF (1F1 .EQ. 904) THEN 
MATRIX* 'STIFFNESS OPT., EIGENVALUE 
ELSE 
ENDIF 
ENDIF 

CALLWRTT (MATRI X , AW , MM , MM) 


BASED ON C=(C-DELTA 


C)) ' 
c ) 1 


C WRITE EIGENVECTORS 
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MATRIX= 1 ANALYSIS EIGENVECTORS AVEC' 

IF (IF1 .EQ. 902) THEN 

MATRIX* 'MASS OPT., EIGENVECTOR BASED ON C=(C-DELTA C)' 

ELSE 

I F ( I FI .EQ. 903) THEN 

MATRIX* 'MASS OPT., EIGENVECTOR BASED ON C*(C-REAL (DELTA C)) 
ELSE 

IF (IF1 .EQ. 904) THEN 

MATRIX* 'STIFFNESS OPT., EIGENVECTOR BASED ON C=(C-DELTA C) 
ELSE 
ENDIF 
ENDIF 
ENDIF 

CALL WRTT(MATRIX,AVEC,NN,MM) 

C WRITE VELOCITY VECTORS 


MATRIX* ' ANALYSIS EIGENVELOCITY AVEC_D' 

IF ( IF1 .EQ. 902) THEN 

MATRIX* 'MASS OPT., EIGENVEL. BASED ON C=(C-DELTA C) ’ 

ELSE 

I F ( IF1 .EQ. 903) THEN 

MATRIX* 'MASS OPT., EIGENVEL. BASED ON C=(C-REAL (DELTA C)) 
ELSE 

IF (IF1 .EQ. 904) THEN 

MATRIX* 'STIFFNESS OPT., EIGENVEL. BASED ON C=(C-DELTA C) ' 
ELSE 
ENDIF 
ENDIF 
ENDIF 

CALL WRTT (MATRIX, AVEC_D,NN, MM) 


c$ss$s$$$$$$s$$$s$$$$$$$sssss$$sssss$s$$ss$ss$s$s$sss$$$$$s$$$ss$s$ 
c$$$$$$$$ ********* 

CSjmm Determine: *******!! 

CSSSSSSSS normalized vectors based on total energy >$>>>$»>> 

C$$$$$$$$ and orthogonality matrices 

cs$$$s$$$ ggggf 

«$$$$$$$$$$$$$$$$$*$*$»*»***»********************************** 


C DETERMINE THE 
C DETERMINE THE 


TRANSPOSE OF AVEC MATRIX AND CALL IT AVEC_T MATRIX 
TRANSPOSE OF TVEC MATRIX AND CALL IT TVEC_T MATRIX 


149 


151 

150 

C 


DO 150 1=1, NN 
DO 151 J=1,W 
AVEC T(J,I)=AVEC(I,J) 
TVEO(J,I)=TVEC(I,J) 
CONTINUE 
CONTINUE 

MATRIX* ' AVEC_T ' 

CALL WRTT (MATRIX, AVEC T.MM.NN) 
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MATRIX = ' TVEC T 1 

c CALL WRTT (MATRIX, TVEC_T,MH,NN) 

C Determine the transpose of AVEC_D and call it AVEC_D_T 
C Determine the transpose of TVEC~D and call it TVEC_D_T 

DO 310 1=1 ,NN 
DO 315 J=1,MM 
AV EC_D_T ( J , I ) = AVEC_D ( I , J ) 

TVEC_D_T (J, I) =TVEC_D (1,0) 

315 CONTINUE 
310 CONTINUE 

MATRIX® ' AVEC D T ' 

C CALL WRTT (MATRIX, AVEC D T.MM.NH) 

MATRIX® ' MC_D_T' 

C CALL WRTT (MATRIX, TVEC_D_T, MM, NN) 

C Normalize the ANALYSIS Eigenvectors to mass martix 

C DETERMINE M * AVEC_D 

CALL MULT (DUMl.AMC, AVEC D,NN,NN,MM) 

C MATRIX® ' DUM1 ® M * AVECJ)' 

C CALL WRTT (MATRIX, DUMl.NN, MM) 

C DETERMINE DUM2 ® AVEC_D_T * DUM1 ® AVEC_D_T * M * AVECJ) 

CALL MULT (DUM2, AVEC D T,DUM1,MM,NN,MM) 

MATRIX® ' DUM2 = AVEC D T * M * AVEC_D’ 

C CALL WRTT (MATRIX, DUM2, MM, MM7 

DUMM1®(0. ,0.) 

DO 2500 1=1, MM 
DUMM1 ® DUMM1 + DUM2(I,I) 

2500 CONTINUE 

DO 2510 1=1, MM 

DUM2(I,I)=DUM2(I, I)/DUMM1 
2510 CONTINUE 


IF (I FLAG .NE. 5 .OR. I FLAG .NE. 4) THEN 
MATRIX® ' ANALYSIS KINETIC ENERGY FACTORS' 

CALL WRTT (MATRIX , DUM2 , MM , MM) 

ELSE 

ENDIF 


2100 

C 


DO 2100 J=1,MM 

CFAC(J,J)=((DUM2(J,J))** 


.5) 


CONTINUE 


MATRIX® ' FACTOR FOR ANALYSIS VECTORS' 
CALL WRTT (MATRIX, CFAC, MM, MM) 
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DO 2120 1=1, MM 
DO 2130 J=1,NN 

AVEC D ( J , I ) =AVEC_D(J , I ) /CFAC ( I , I ) 
AVEClJ,I)=AVEC(J,I)/CFAC(I,l) 

2130 CONTINUE 
2120 CONTINUE 

IF (I FLAG .NE. 5 .OR. I FLAG .NE. 4) THEN 
C IF (I FLAG .NE. 5) THEN 

MATRIX=' NORMALIZED AVEC D' 

CALL WRTT (MATRIX, AVEC D.NN.MMj 
MATRIX=' NORMALIZED AVEC' 

CALL WRTT (MATRIX , AVEC , NN , Wl) 

ELSE 

ENDIF 


DO 1=1 ,NN 
DO J=1,MM 

AVEC D T(J, I)=AVEC_D(I , J) 
AVECjlJ,I)=AVEC(I,J) 

END 00 
END DO 


IF (IFLAG .EQ. 4) GO TO 901 
IF (IFLAG .EQ. 5) GO TO 2558 

C Normalize the TEST Eigenvectors to mass martlx 

C DETERMINE M * TVEC_D 

CALL MULT (DUM1 , AMC , TVEC_D , NN , NN , MM) 
MATRIX" ' DUM1 = M * TVEC_D* 

C CALL WRTT (MATR I X , DUM 1 , NN , MM) 


C DETERMINE DUM2 " TVEC_D_T * DUM1 " TVEC_D_T * M * TVEC_D 

CALL MULT (DUM2 , TVEC_D_T , DUM1 , MM , NN , MM) 

MATRIX" ’ DUM2 = TVEC_D T * M * TVECD' 

C CALL WRTT(MATRIX,DUM2,MM,MM7 


0UMM1=(0. ,0.) 

DO 2135 1=1, MM 

DUMM1 = DUMM1 + DUM2(I,I) 

2135 CONTINUE 

DO 2136 1=1, MM 

DUM2 ( 1,1) =DUM2 (1,1) /DUMM1 

2136 CONTINUE 


MATRIX" ' TEST KINETIC ENERGY FACTORS' 

CALL WRTT (MATRIX, DUM2, MM, MM) 
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DO 2140 1=1, MM 
DO 2150 J=1 ,MM 
CFAC(J, J) = (DUM2(J,<J) )**.5 
2150 CONTINUE 

2140 CONTINUE 

DO 2160 1=1, MM 
DO 2170 J=1 ,NN 

TV EC D(J, I)=TVEC_D(J, I)/CFAC(I,I) 
TVECTJ.I)=TVEC(0,I)/CFAC(I,I) 

2170 CONTINUE 

2160 CONTINUE 


DO 1=1, NN 
DO J=1,MM 

TVEC D T(J,I)*TVEC_D(I.J) 
TVEC"tTJ,I)=TVEC(I.J) 

END DO 
END DO 


MATRIX*' NORMALIZED TVEC D' 

CALL WRTT (MATRIX, TVEC D.NN.MMj 
MATRIX® 1 NORMALIZED TVEC' 

CALL WRTT (MATRIX , TVEC , NN , MM) 

r DFTERMINE THE TRANSPOSE OF AVEC MATRIX AND CALL IT AVEC_T MATRIX 

C DETERMINE THE TRANSPOSE OF TVEC MATRIX AMO CALL IT TVEC.T MATRIX 

DO 2180 1*1, NN 
DO 2190 J=1 ,MM 
AVEC T(J,I)=AVEC(I,J) 

TVEC"T(J.I)=TVEC(I,J) 

2190 CONTINUE 

2180 CONTINUE 

MATRIX*' AVEC_T ' 

C CALL WRTT (MATRIX, AVEC T, MM, NN) 

MATRIX* ' TVEC_T' 

C CALL WRTT (MATRIX, TVEC_T, MM, NN) 

C Determine the transpose of AVEC_D and call It AVEC D T 

C Determine the transpose of TVEC_D and call it TVEC_D_T 

DO 2200 1*1, NN 
DO 2210 J=1,MM 
AVEC D T (J , I)*AVEC_D(I, J) 

TVEC D_T(J , I)*TVEC_D(l, J) 

2210 CONTINUE 

2200 CONTINUE , 

MATRIX®' AVEC_DT 

C CALL WRTT (MATRIX , AVEC D T , MM, NN) 

MATRIX*' TVIC_D_T' 

C CALL WRTT (MATRIX, TVEC_D_T, MM, NN) 
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• c DETERMINE M * AVEC_D 


CALL MULT (DUM1 , AMC , AVEC_D , NN , NN , MM) 
MATRIX® ' DUM1 = M * AVEC_D' 

C CALL WRTT ( MATRIX, DUMl.NN, MM) 


c$H$$$m$$$$ssm$*i$$*$$$*$*$H*»**ttH********* 

C DETERMINE DUM2 = AVEC_D_T * DUM1 = AVEC_D_T * M 


AVEC D 


CALL MULT (DUM2, AVEC D_T , DUM1 , MM , NN , MM) 
MATRIX=' DUM2 * AVEC_D T * M * AVEC_D' 
C CALL WRTT (MATRIX , DUM2 , MM , MMj 

C DETERMINE K * AVEC 


CALL MULT (DUMl.AKC, AVEC, NN.NN, MM) 
MATRIX®' DUM1 = K * AVEC* 

C CALL WRTT (MATRIX, DUMl.NN, MM) 


C DETERMINE DUM3 = AVEC_T * DUM1 = AVEC_T * K AVEC 


CALL MULT (DUM3, AVEC T.DUMl.MM.NN.MM) 
MATRIX® ' DUM3 ® AVEC T * K * AVEC' 

C CALL WRTT (MATRIX, DUM3, MM, MM) 


CSS$$$$$SS$$$$$SSS$iSS$S$SSSS$S$$$$S$SS$$SS$SSS$$$$S 
C DETERMINE EB = DUM3 - DUM2 


202 

201 


CALL SUBTT(EB,DUM3,DUM2,MM,MM) 
MATRIX='EB = AVEC_T * K * AVEC - 
CALL WRTT (MATRIX, EB, MM, MM) 


AVEC_D_T * M * AVEC_D 1 


DO 201 1*1, MM 
DO 202 J=1,MM 

EA(J, I)=EB(J, I)/-AW(I,I) 
CONTINUE 
CONTINUE 

MATRIX® ' EA = EB / 

CALL WRTT (MATRIX, EA, MM, MM) 


-AW* 




C Select a method for solving for the C and K matrices. 


IF (IDAMP .EQ. 1) GO TO 9 
IF (ISTIFF .EQ. 1) GO TO 8 
IF (ISTIFF .EQ. 

X.AND. NN .NE. MM) 

TYPE *, 'ERROR, 

GO TO 1000 


0 .AND. IDAMP .EQ. 0 
THEN 

SELECT IDAMP OR ISTIFF METHOD' 


ELSE 

ENDIF 

IF (ISTIFF .EQ. 
X.AND. NN .NE. MM) 
TYPE *, 'ERROR, 
GO TO 1000 


1 .AND. IDAMP .EQ. 1 
THEN 

SELECT ONLY IDAMP OR ISTIFF METHOD' 


ELSE 
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ENDIF 

IF(NN .NE. MM) GO TO 1000 


csmsus $$s$s$$s$ 

c$$$$m$ m$$$m 

Direct Method *»**»*$ 

cumin $$$$$$*$$ 

c$$mummumm$m$$$$umm$mmmm} 

cmuummmmmsmmmmmummum 


C If the AVEC matlrx Is not square, the following section Is 
C skipped, since the true Inverse of AVEC and AVEC_T can not 
C be obtained In the following section. 


C Determine DUM1 * M * AVEC_D 


CALL ZER(DUM1,NN,NN) 
CALL ZER(DUM2,NN,NN) 
CALL ZER(DUM3,HN,NN) 
CALL ZER(DUM4,NN,NN) 
CALL ZER(DUM5,NN,NN) 
CALL ZER(DUM6,NN,NN) 
CALL ZER(DUM7,NN,NN) 


CALL MULT(DUM1,AMC,AVEC_D,NN,NN,MM) 
MATRIX* ' DUM1 * M * AVEC_D' 

C CALL WRTT (MATRI X , DUM1 , NN , MM) 


C Determine DUM2 = AVEC_T * DUM1 * AVEC_T * M * AVEC_D 


CALL MULT (DUM2, AVEC T.DUMl.MM.NN.MM) 
MATRIX* ' DUM2 * AVEC T * M * AVECJ)' 
C CALL WRTT (MATRIX, DUM2.MM, MM) 

C Determine DUM1 * M * AVEC 


CALL MULT (DUMl.AMC, AVEC, NN.NN, MM) 
MATRIX*' DUM1 = M * AVEC* 

C CALL WRTT (MATRIX, DUMl.NN, MM) 


cs$$ss$$$sj$jss$mm$ssmmms$m$sssssssjss$s 

C Determine DUM3 = AVEC D T * DUM1 * AVEC_D_T M * AVEC 


CALL MULT (DUM3, AVEC D T.DUMl.MM.NN.MM) 
MATRIX*' DUM3 * AVEC_D T * M * AVEC* 

C CALL WRTT (MATRIX, DUM3, MM, MM) 

C DETERMINE AVEC T*C*AVEC*EA-DUM2-DUM3 


CALL ADD (DUM1 , DUM2 , DUM3 , MM , MM) 

CALL SUBTT(DUM2,EA,DUM1,MM,MM) 

MATRIX= ' DUM2 = AVEC_T*C*AVEC' 

C CALL WRIT (MATRIX,DUM2,MM,MM) 

C Determine the C matrix 

DO 250 1=1, NN 
DO 251 J=1,MH 
DUM6(I, J)=AVEC(I, J) 

DUM7 (0, I)=AVEC_T (J, I) 

251 CONTINUE 

250 CONTINUE 

C Determine the inverse of AVEC matrix, and post multiply 
C it by AVEC_T*C*AVEC 

CALL MAT INVC (DUM6 , DUM3 , NN , NR) 

CALL MULT (DUM1 , DUM2 , DUM3 , NN , NN, NN) 

C Determine the Inverse of AVEC T matrix, and pre multiply 
C It by AVEC_T*C*AVEC*AV EC**- 1 to obtain the C matrix. 

CALL MATINVC (DUM7 , DUM4 , NN , NR) 

CALL MULT (DUM5 , DUM4 , DUM1 , NN , NN , NN) 

MATRIX=' C MATIRX IS = ' 

CALL WRTT (MATRIX , DUM5 , NN , NN) 

q****************************************************************** 


C If the eigenvector matrix Is square, there will be no 
C no need for optimization techniques. 

IF(NN .EQ. Wl) GO TO 1000 


csw$«$$ ilitffffl 

c$$$$$$$$ $$$$$$$$$ 

c$$$$$$$$ STIFFNESS CORRECTION 

$$$$$$$$$ 


c900 IF (1ST I FF .NE. 1) GO TO 8 

C900 IF ( ISTI FF .EQ. 1) GO TO 8 


C Initialize the dummy matrices. 

CALL ZER(DUM1,NN,NN) 

CALL ZER(DUM2,NN,NN) 
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CALL ZER(DUM3,NN,NN) 
CALL ZER(DUM4,NN,NN) 
CALL ZER(0UM5,NN,NN) 
CALL ZER(DUM6,NN,NN) 
CALL ZER(DUM7,NN,NN) 
CALL ZER(DUM8,NN,NN) 

C DETERMINE DUM1 = M * TVEC_D 


CALL MULT (DUM1 , AMC , TV EC_D , NN , NN , MM) 
MATRIX* ' DUM1 * M * TVEC_D‘ 

C CALL WRTT (MATRIX, DUMl.NN, MM) 


C DETERMINE DUN2 * TVEC D T * DUM1 « TVEC_D_T * M * TVECD 


CALL MULT (DUM2 , TVEC D T.DUMl.MM.NN.MM) 
MATRIX* ' DUM2 = TVEC_D T * M * TVEC_D' 

C CALL WRTT (MATRIX, DUM2, MM, MMj 


C DETERMINE DUM3 * EB + DUM1 * EB + TVEC_D_T * M * TVEC_D 


CALL ADD(DUM3,EB,DUM2,MM,MM,MM) 

MATRIX* ' DUM3 = EB + TVEC D T * M * TVEC_D' 

CALL WRTT (MATRIX, DUM3, MM, MM) 


C DETERMINE DUM4 = 1./DUM3 = (EB + TVEC_D_T * M * TVEC_D)**-1 


CALL MATINVC (DUM3 , DUMA , MM, NR) 

MATRIX* ' DUM4 = (EB + TVEC D T * M * TVECJD)**-r 
C CALL WRTT(MATRIX,DUM4,MM,MMT 

C DETERMINE DUM5 * DUM4*TVEC_T * % 

C ((EB + TVEC_D_T * M * TVEC_D)**-1)TVEC_T 


C 


CALL MULT (DUM5 , DUM4 , TV EC , MM , MM , NN) 
MATRIX* *DUM5=((EB + TVEC D_T * M * 
CALL WRTT (MATRIX, DUM5.MM7NN) 


TVEC_D) **-l ) TVEC_T ' 


C DETERMINE (K*)**-l * DUM6 * TVEC*DUM5 * 

C TVEC ( (EB + TVEC_D_T * M * TVEC_D)**-1)TVEC_T 


C 


CALL MULT ( DUM6 , T V EC , DUM5 , NN , MM , NN ) 
MATRIX*' (K*)**-1=TVEC((EB + TVEC_D_T * M 
CALL WRTT (MATRIX, DUM6.NN.NN) 


TVEC_D) **- 1 ) TVEC_T ' 


c$sss$sssss$s$ssss*sm$ss$$smm$sssssj$msmis 

C Determine the inverse of K matrix. DUM2=(K)**-1 


DO 2700 1=1, NN 
DO 2701 J*1,NN 
DUM1(I, J)=AKC(I,J) 
2701 CONTINUE 
2700 CONTINUE 
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CALL MATINVC (DUM1 , DUM2 , NN , NR) 

MATRIX= ' DUM2 = (K)**-l' 

CALL WRTT (MATRIX .DUMZ.NN.NN) 

C Determine DUM4 = DUH2 - DUM6 = ((K)**-l) - ((K*)**-l) 

CALL SUBTT ( DUM4 , DUM2 , DUM6 , NN , NN ) 

MATRIX=* DUM4 = ( (K)**-l) - ((K*)**-l)' 

C CALL WRTT (MATRIX, DUM4,NN,NN) 

C Determine DUM5 «= DUM4 * K •= (((K)**-l) - ((K*)**-1))K 

CALL MULT ( DUM5 , DUM4 , AKC , NN , NN , NN) 

MATRIX=' DUM4 = (((K)**-l) - ((K*)**-1)K* 

C CALL WRTT (MATRIX, DUM5.NN.NN) 

C Determine DUM6 = K * DUM5 * K(((K)**-1) - ((K*)**-1))K 

CALL MULT (DUM6 , AKC , DUM5 , NN , NN , NN) 

CALL SUBTT (DUM7, AKC, DUM4.NN.NN) 

MATRIX=' DUM4 - K(((K)**-1) - ((K*)**-1))K‘ 

CALL WRTT (MATRIX, DUM6.NN.NN) 

MATRIX= 1 DUM7 = ERROR MATRIX' 

CALL WRTT (MATRIX, DUM7 , NN , NN) 


C If Idamp is not 1, then correction of damping is not 
C desired. 


IF (IDAMP .NE. 1) GO TO 8 

c$$$$$$$$ •*♦«*«*< 

C$SS$J$S$ DAMPING CORRECTION 

C$$$s$$$$ Mass Optimization Method 
«$$$$$$$ 

C$$$$S$$$$$$$S$SSS$$$$$SS$S$JS$S$S$SS$SS$S$$S«$J$JJ 

C Initialize the dummy matrices. 


$$$$$$$$$ 

ssmmj 

$$$$$$$$$ 


9 CALL ZER(DUM1,NN,NN) 

CALL ZER(DUM2,NN,NN) 
CALL ZER(DUM3,NN,NN) 
CALL ZER(DUM4,NN,NN) 
CALL ZER(DUM5,NN,NN) 
CALL ZER(DUM6,NN,NN) 
CALL ZER(DUM7,NN,NN) 
CALL ZER(DUM8,NN,NN) 
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CALL ZER(DUM9.NN,NN) 
C DETERMINE M * TVEC_D 


CALL MULT (DUM1 , AMC , TVEC D,NN,NN,MM) 
MATRIX= ' DUM1 = M * TVEC_D' 

C CALL WRTT (MATRIX, DUMl.NN.MM) 


C DETERMINE DUM2 = TVEC_D_T * DUM1 = TVEC_0_T * M TVEC_D 


C 


CALL MULT (DUM2, TVEC D T,DUM1,MM,NN,MM) 
MATRIX*' DUM2 * TVEC D T * M * TVECJ)' 
CALL WRTT (MATRIX , DUM2 , MM, MMj 


C DETERMINE K * TVEC 


CALL MULT (DUMl.AKC, TVEC, NN,NN, MM) 
MATRIX= * DUM1 * K * TVEC 1 
C CALL WRTT (MATRIX, DUMl.NN, MM) 


cstussusn»sus!j«isjsstmt»s»s$mt«jtnm» 

C DETERMINE DUM3 = TVEC_T * DUM1 * TVEC_T * K TVEC 


CALL MULT (DUM3 , TVEC _T , DUM1 , MM , NN ,MM) 
MATRIX* ' DUM3 * TVEC_T * K * TVEC" 

CALL WRTT (MATRIX, DUM3, MM, MM) 


C DETERMINE TB * DUM3 - DUM2 


CALL SUBTT (TB , DUM3 , DUM2 , MM , MM) 
MATRIX* 'TB * TVEC T * K * TVEC - 
CALL WRTT (MATRIX, EB, MM, MM) 


TVEC_D_T * M * TVEC_D‘ 


C DETERMINE TA = TB / -TW 
DO 205 1*1, MM 
DO 206 J*1,MM 

TA(J.I)*TB(J,I)/-TW(I,I) 

206 CONTINUE 

205 CONTINUE - tr / TW' 

MATRIX* ' TA = TB / -TW 

CALL WRTT (MATRIX, TA, MM, MM) 


C Calculate the mess Inside the paranteses 


C Determine DUM1 = M * TVEC_D 

CALL ZER(DUM1,NN,NN) 
CALL ZER(DUM2,NN,NN) 
CALL ZER(DUM3,NN,NN) 
CALL ZER(DUM4,NN,NN) 
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CALL MULT (DUM1 , AMC , TVEC_D , NN , NN , MM) 

MATRIX= 1 DUM1 = M * TVEC_D’ 

C CALL WRTT (MATRIX, DUMl.NN, MM) 

C Determine DUM2 = TVEC_T * DUM1 = TVEC_T * M * TVECJ) 

CALL MULT (DUM2 , TVEC_T , DUM1 , Wl , NN , MM) 

MATRIX=' DUM2 = TVEC_T * M * TVEC_D' 

C CALL WRTT (MATRIX, DUM2, MM, MM) 

C Determine DUM1 = M * TVEC 

CALL MULT (DUM1, AMC, TVEC, NN,NN, MM) 

MATRIX= ' DUM1 * M * TVEC' 

C CALL WRTT (MATRIX , DUM1 , NN , MM) 

C Determine DUM3 = TVEC_D_T * DUM1 = TVEC_D_T * M * TVEC 

CALL MULT(DUM3,TVEC D_T,DUM1,MM,NN,MM) 

MATRIX*' DUM3 = TVEC_D T * M * TVEC' 

C CALL WRTT(MATRIX,DUM3,RM,MM) 

C Determine DUM1 = C * TVEC 

CALL MULT (DUM1, ACC, TVEC, NN,NN, MM) 

MATRIX*’ DUM1 * C * TVEC 

C CALL WRTT (MATRIX , DUM1 , NN , MM) 

csssnmsmnmmmmmmssumnssmssm 

C Determine DUM4 * TVEC_T * DUM1 * TVEC_T * C * TVEC 

CALL MULT (DUM4 , TVEC_T , DUM1 , MM, NN , MM) 

MATRIX* ’ DUM4 = TVEC_T * C * TVEC' 

C CALL WRTT (MATRIX, DUM4.MM.MM) 

C DETERMINE DUM1 * TVEC D T*M*TVEC T - 
C TVEC_T * M * TVEC_D_T 

CALL ADD(DUM1,DUM2,DUM3,MM,MM) 

C MATRIX* ' TVEC_D_T*M*TVEC_T-TVEC_T*M*TVEC D_T' 

C CALL WRTT (MATRIX, DUM1, MM, MM) 

C DETERMINE DUM5 = TVEC_D_T*M*TVEC_T - 
C TVEC T * M * TVEC_D T - 

C TVEC_T * C * TVEC 

CALL ADD ( DUM5 , DUM 1 , DUM4 , MM , MM) 

C MATRIX* ' TVEC_D_T*M*TVEC_T-TVEC_T*M*TVEC D_T- 

C XTVEC T*C*TVEC 
C CALL WRTT (MATRIX, DUM5.MM, MM) 

C DETERMINE DUM1 * TVEC D T * M * TVEC_T - 

C TVEC~T * M * TVEC_D_T - 
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d o o r> o 


c 

c 


TVEC_T * C * TVEC 
TA 


C 


CALL SUBTT (DUM1 , DUM5 , TA , MM , MM) DBn . MT ™, 
MATRIX* 1 THE MESS INSIDE OF THE PARANTESIS 
CALL WRTT (MATR I X , DUM1 , MM , MM) 


C DUM9 matrix, later on, will be used for optimization based on 
C stiffness matrix. 


208 

207 


DO 207 1=1, MM 
DO 208 J=1,MM 
DUM9(I,J)*DUM1(I,J) 
CONTINUE 
CONTINUE 


DETERMINE DUM1 = TA - EA 

CALL SUBTT (DUM1 ,TA, EA,MM,MM) 

MATRIX* ' (TA-EA)' 

CALL WRTT (MATRIX, DUM1, MM, MM) 

C$$$$$$S$*ttWttm***************** J ************** 

c Determine DUM2 = M * TVEC 



ALL MULT (DUM2 , AMC , TVEC , NN , NN , MM) 
ATRIX= 1 0UM2*M*TVEC' 
Alt WRTT (MATRIX, DUM2.NN, MM) 


C Determine DUM7 * TVEC_T * M 


C 


CALL MULT(DUM7,TVEC_T,AMC,MM,NN,NN) 

MATRIX* ' DUM7 * TVEC T * M 

CALL WRTT (MATRIX , DUM7 , NN , MM) 



CALL MULT (DUM3 , TVEC_T , DUM2 , MM.NN.MM) 
MATRIX* ' DUM3 * TVEC_T * M TVEC 
C CALL WRTT (MATRIX , DUM3 , MM , tW) 

C Determine DUM4 = (TVEC_T M TVEC) 1 


259 

258 


DO 258 1=1. MM 
DO 259 J=1,MM 

DUM6(I,J)=DUM3(I,J) 

CONTINUE 

CONTINUE 


CALL MATINVC(DUM3,DUM4.MM.NR) 
C CALL 1 WRTT (MATRIX.DUM47MM, MM) 
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CALL MU L T ( DUM 5 , DUM 1 , DUM4 , MM , MM , MM ) 

C Determine DUM6=DUM4*DUM5 

C DUM6=( (TVEC_T*M*TVEC)**-l)*O ness )*(TVEC_T*M*TVEC)**-l 

CALL MULT ( DUM6 , DUM4 r DUM5 , MM , MM , MM) 

C Determine DUM8=DUM6*DUM7 

C DUM8= ((TVEC_T*M*TVEC)**-l)*(mess)*((TVEC_T*M*TVEC)**-l)*TVEC_T*M 

CALL MULT ( DUM8 , DUM6 , DUM7 , MM t MM , NN ) 

C Determine DUM6=DUM2*DUM8 
C DUM6=M*TVEC* 

C ((TVEC_T*M*TVEC)**-1)* 

C ss)* 

C ((TVEC_T*M*TVEC)**-1)* 

C TVEC_T*M 

CALL MULT (0UM6 , DUM2 . DUM8 , NN , MM , NN) 

MATRIX=' MASS OPT. DELTA C' 

CALL WRTT (MATRIX, DUM6.NN.NN) 

C Determine the new C matrices. 

DO 306 1=1, NN 
DO 307 J=1,NN 
DUM1(I,J)=ACC(I,J) 

ACORG(I, J)=ACC(I , J) 

DUM2(I, J)=(0. ,0.) 

DUMM= REAL (DUM6 ( I , J ) ) 

DUM2 ( I , J) =CMPLX (DUMM , 0 . ) 

307 CONTINUE 

306 CONTINUE 

C If Iflag Is 4 then the new eigenproblem with the new 
C C matrix Is solved. 

IFLAG = 4 

C The strategy will be that one time delta C will be added, 

C and one time It will be subtracted from the C matrix. 

C Add the delta C to C matrix and solve eigenproblem. 


901 

C 


IF1 = 901 

IF(IF1 .GT. 901)60 TO 902 
CALL ADD ( DUM3 , DUM1 , DUM6 , NN , NN) 

CALL SUBTT (DUM3,DUM1,DUM6,NN,NN) 

MATRIX=' DELTA C ADDED TO THE C MATRIX, 
CALL WRTT (MATRIX, DUM3,NN,NN) 

DO 303 1=1, NN 


NEW C 1 
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DO 304 J=1,NN 
ACC ( I , J) =DUM3 ( I , J ) 

AC(I,J)*DUM3(1, J) 

304 CONTINUE 

303 CONTINUE 

IF1 = IF1 + 1 
IF(IFLAG .EQ. 4) GO TO 5 

C Add the delta C to C matrix and solve eigenproblem. 

CALL ZER(DUM3,N,N) 

CALL ZER(ACC,N,N) 

CALL ZER(AC,N,N) 

902 I F (IF1 .GE. 903) GO TO 903 


C DETERMINE THE ORTHOGONALITY CONDITION. 


c DETERMINE DUM1 = M * AVEC_D 

CALL MULT (DUM1 , AMC , AVEC D,NN,NN,fW) 

MATRIX* 1 DUM1 * M 1 AVEC D* 

C CALL WRTT (MATRIX, DUMl.NN, MM) 

C$$SS$S$SSSS$$$J$S$$$S$$$$SSS$$$$$$S$$S$$$S$$$SS$S$$ 

C DETERMINE DUM2 * AVEC_D_T * DUM1 * AVEC_D_T * M * AVEC_D 


CALL MULT(DUM2,AVEC D T.DUMl.MM.NN.MM) 
MATRIX* ' DUM2 - AVEC D T * M * AVECJ) 1 
C CALL WRTT (MATRIX, DUM2, MM ,Wj 


C DETERMINE DUM1 * K * AVEC 

CALL MULT (DUM1 , AKC , AV EC , NN , NN , MM) 
MATRIX* 1 DUM1 = K * AVEC 1 
C CALL WRTT (MATRIX, DUMl.NN, MM) 


C DETERMINE DUM4 * AVEC T * DUM1 * AVEC_T * K * AVEC 


CALL MULT (DUM4, AVEC T.DUMl.MM.NN.MM) 
MATRIX* 1 DUM4 * AVEC_T * K * AVEC 1 
C CALL WRTT (MATR I X , DUM4 , MM , MM) 


C DETERMINE EB = DUM4 - DUM2 


CALL SUBTT ( EB , DUM4 , DUM2 , MM , MM) 
MATRIX* 'EB = AVEC T * K * AVEC 
CALL WRTT (MATRIX, tB, MM, MM) 


- AVEC_D_T * M * AVEC_D' 


c DETERMINE DUM1 - M * TVEC_D 

CALL MU LT ( DUM1 , AMC , TV EC_D , NN , NN , MM) 
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MATRIX= ' DUM1 = M * TVEC_D’ 

C CALL WRTT (MATRIX , DUM1 , NN , MM) 

C DETERMINE DUM2 = TVEC_D_T * DUM1 = TVEC_D_T * M * TVEC_D 

CALL MULT(DUM2,TVEC_D_T,DUM1,MM,NN,MM) 

MATRIX=' DUM2 = TVEC_D T * M * TVEC_D' 

C CALL WRTT (MATRIX, DUM2,fW,Wl7 

C DETERMINE DUM1 = K * TVEC 

CALL MULT (DUM1 , AKC , TVEC, NN , NN, MM) 

MATRIX= ' DUM1 = K * TVEC' 

C CALL WRTT (MATRIX, DUMl.NN, MM) 

C DETERMINE DUM4 * TVEC_T * DUM1 = TVEC_T * K * TVEC 

CALL MULT (DUM4 , TVEC T , DUM1 , MM, NN , MM) 

MATRIX* 1 DUM4 * TVEC T * K * TVEC' 

C CALL WRTT (MATRIX , DUM4 , MM , MM) 

C DETERMINE TB = DUM4 - DUM2 

CALL SUBTT (TB , DUM4 , DUM2 , MM, MM) 

MATRIX* 'TB = TVEC T * K * TVEC - TVEC_D_T * M * TVEC D‘ 
CALL WRTT(MATRIX,TB,MM,MM) 

C DETERMINE DUM1 = M * AVEC_D 

CALL MULT (DUM1 , AMC, AVEC D.NN.NN.MM) 

MATRIX* ' DUM1 * M 5 AVEC_D' 

C CALL WRTT (MATRIX, DUMl.NN, MM) 

C DETERMINE DUM2 = AVEC_T * DUM1 * AVEC_T * M * AVEC_D 

CALL MULT (DUM2, AVEC T.DUMl.MM.NN.MM) 

MATRIX*' DUM2 = AVEC_T * M * AVEC_D' 

C CALL WRTT (MATR I X , DUM2 , MM , MM) 

C DETERMINE DUM1 = M * AVEC 

CALL MULT (DUM1 , AMC , AVEC , NN , NN , MM) 

MATRIX*' DUM1 * M * AVEC’ 

C CALL WRTT(MATRIX, DUMl.NN, MM) 

C DETERMINE DUM4 = AVEC_D_T * DUM1 * AVEC_D_T * M * AVEC 

CALL MULT (DUM4 , AVEC_D_T , DUM1 , MM, NN , MM) 

MATRIX* ' DUM4 = AVEC_D T * M * AVEC 
C CALL WRTT (MATRIX, DUM4, MM, MMj 
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C DETERMINE DUM5 = DUM2 + DUM4 = 

C AVEC_T * M * AVEC_D + AVEC_D 


T * M * AVEC 


CALL ADD(DUM5,DUM2,DUM4,MM,MM) 
C DETERMINE DUM1 = C * AVEC 


CALL MULT (DUM1 , DUM3 , AVEC , NN , NN , MM) 
MATRIX* 1 DUM1 = C * AVEC' 

C CALL WRTT (MATR I X , DUM1 , NN , MM) 


C DETERMINE DUM4 * AVEC T * DUM1 = AVEC_T * C * AVEC 


CALL MULT (DUM4 , AVEC T , DUM1 , MM, NN , MM) 
MATRIX* ' DUM4 * AVEC_T * C * AVEC* 

C CALL WRTT (MATRIX, DUM4, MM, W) 

C DETERMINE EA = DUM4 + DUM5 


800 


CALL ADD(EA,DUM4,DUM2,MM,MM) 

WRITE (2 800) 

FORMAT(ix, ‘ORTHO BASED ON IMPROVED MATRICES AND VECTORS’) 
MATRIX* ' EA=AVEC_D_T*C*AVEC+AVEC D_T*M*AVEC D+AVEC_T*M*AVEC_D_ 
CALL WRTT (MATRIX, EA, MM, MM) 


C DETERMINE DUM1 = M * TVEC_D 


CALL MULT(DUM1,AMC,TVEC_D,NN,NN,MM) 
MATRIX*' DUM1 - M * TVEC_D‘ 

C CALL WRTT (MATRIX, DUMl.NN, MM) 


C DETERMINE DUM2 = TVEC_T * DUM1 = TVEC_T * M * TVEC_C 


CALL MULT (DUM2 , TVEC T.DUMl.MM.NN.MM) 
MATRIX* ' DUM2 = TVEC T * M * TVEC_D‘ 

C CALL WRTT (MATRIX , DUM2 , MM , MM) 

C DETERMINE DUM1 * M * TVEC 


CALL MULT (DUMl.AMC, TVEC, NN.NN, MM) 
MATRIX* ‘ DUM1 * M * TVEC' 
CALL WRTT (MATRIX, DUMl.NN, MM) 


C DETERMINE DUM4 = TVEC_D_T * DUM1 = TVEC_D_T M TVEC 


CALL MULT (DUM4, TVEC D T.DUMl.MM.NN.MM) 

MATRIX* * DUM4 = TVEC_D T * M * TVEC’ 

C CALL WRTT(MATRIX,DUM4,MM,MMl 

r HFTFRMIKE DUM5 * DUH2 + DUM4 = 

C DETERMINE UUK.D ^ * M * TVEC_D + TVEC_D_T * M * TVEC 
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CALL ADD ( DUM5 , DUM2 , DUM4 , MM , MM) 

css$ums$ssmms$sm$smsmmmmssmss$s 

C DETERMINE DUM1 = C * TVEC 

CALL MULT (DUM1 , DUM3 , TVEC , NN , NN , MM) 

MATRIX=' DUM1 = C * TVEC' 

C CALL WRTT(MATRIX,DUM1 ,NN,MM) 

CSSS$SSSS$$SSUSSJSSU$SS$$$$JS$$$$USJ$iH$iSS$$SSS 
C DETERMINE DUM4 = TVEC_T * DUM1 = TVEC_T * C * TVEC 

CALL MULT (DUM4 , TVEC_T , DUM1 , MM , NN , MM) 

MATRIX 1 ' DUM4 = TVEC_T * C * TVEC' 

C CALL WRTT (MATRIX ,DUM4, MM, MM) 

C DETERMINE TA = DUM4 + DUM5 

CALL ADD(TA,DUM4,DUM2,MM,MM) 

WRITE(2,801) 

801 FORMAT ( IX ORTHO BASED ON TEST VECTORS AND IMPROVED MATRICES') 

MATRIX= ' TA=TVEC_D T*C*TVEC+TVEC D T*M*TVEC D+TVEC_T*M*TVEC_D_T ' 
CALL WRTT(MATRIX,TA,MM,MM) 

C DETERMINE DUM1 = M * TVEC_D 

CALL MULT (DUM1 , AMC , TVEC_D , NN , NN , MM) 

MATRIX= ' DUM1 - M * TVEC D' 

C CALL WRTT (MATRIX, DUMl.NN, MM) ~ 

C DETERMINE DUM2 = TVEC_T * DUM1 = TVEC_T * M * TVEC_D 

CALL MULT (DUM2, TVEC T,DUM1,MM,NN,MM) 

MATRIX=* DUM2 * TVEC_T * M * TVEC_D' 

C CALL WRTT (MATRIX, DUM2, MM, MM) 

C DETERMINE DUM1 = M * TVEC 

CALL MULT (DUM1 , AMC , TVEC , NN , NN , MM) 

MATRIX=' DUM1 = M * TVEC' 

C CALL WRTT (MATRIX , DUM1 , NN , W1) 

C DETERMINE DUM4 = TVEC_D_T * DUM1 «= TVEC_D_T * M * TVEC 

CALL MULT (DUM4 , TVEC_D_T, DUM1 , MM, NN , MM) 

MATRIX= ' DUM4 = TVEC D T * M * TVEC' 

C CALL WRTT (MATRIX, DUM4.MM.MM7 

C DETERMINE DUM5 = DUM2 + DUM4 * 

C TVEC_T * M * TVEC_D + TVEC_D_T * M * TVEC 

CALL ADD (DUM5 , DUM2 , DUM4 , MM , MM) 

C DETERMINE DUM1 = C * TVEC 
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CALL MULT (DUM1 , ACORG , TVEC , NN , NN , MM) 

MATRIX® ' DUM1 * C * TVEC 1 
C CALL WRTT (MATRI X , DUM1 , NN , MM) 

C DETERMINE DUM4 ® TVEC_T * DUM1 = TVEC_T * C * TVEC 

CALL MULT (DUM4, TVEC T,DUM1,MM,NN,MM) 

MATRIX® 1 DUM4 ® TVEC T * C * TVEC* 

C CALL WRTT (MATRI X , DUM4 , MM , MM) 

C DETERMINE TA ® DUM4 + DUM5 

CALL ADD(TA,DUM4,DUM2,MM,MM) 

WRITE (2 ,802) 

802 FORMAT (IX. 'ORTHO BASED ON TEST VECTORS AND ANALYTICAL MATRICES') 
MATRIX® 'TA= TVEC D T*C*TVEC+TVEC D_T*M*TVEC D+TVEC_T*M*TVEC_D_T ' 
CALL WRTT(MATRIX,TA,MM,MM) 

C DO 1*1, MM 

C DO J=1,MM 

C EA(J,I)*EB(J,I)/-AW(I,I) 

C ENDDO 

C ENDDO 

C MATRIX®’ EA = EB / -AW* 

C CALL WRTT (MATRIX, EA, MM, MM) 


c 


302 

301 


CALL AD0(DUM3,DUM1,DUM2,NN,NN) 

CALL SUBTT(DUM3,DUM1,DUM2,NN,NN) 

MATRIX®' REAL PART OF DELTA C ADDED TO THE C MATRIX, NEW C' 
CALL WRTT (MATRI X , DUM3 , NN , NN) 

DO 301 I®1,NN 
DO 302 J*1,NN 
ACC(I, J)*DUM3(I, J) 

AC(I,J)®DUM3(I,J) 

IF(ACORG(I,J) .EQ. 

IF(ACORG(I,J) .EQ. 

CONTINUE 
CONTINUE 

MATRIX® 'REAL PART OF DELTA C ADDEO TO THE C MATRIX, ACC' 
CALL WRTT (MATRIX, ACC, NN.NN) 


(0.,0.)) ACC(I,J)®(0.,0.) 
(0.,0.)) AC(I,J)*(0.,0.) 


IF1 = IF1 + 1 
IF(IFLAG .EQ. 4) GO TO 5 


ogasnoB 

fUUUit JJSSJJW 

C$$$$$$$$ DAMPING CORRECTION 

C$$$$$$tt Stiffness Optimization Method $$$$>>>>> 
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C Initialize the dummy matrices. 

CALL ZER(DUM1 ,NN,NN) 

CALL ZER(DUM2,NN,NN) 

CALL ZER(DUM3,NN,NN) 

CALL ZER(DUM4,NN,NN) 

CALL ZER(DUM5,NN,NN) 

CALL ZER(DUM6,NN,NN) 

CALL ZER(DUM7,NN,NN) 

CALL ZER(DUM8,NN,NN) 


C Determine DUM2 = K * TVEC 


903 CALL MULT (DUM2.AKC, TVEC, NN,NN, MM) 

MATRIX=' DUM2 = K * TVEC' 

C CALL WRTT (MATRIX, DUM2.NN, MM) 

C Determine DUM7 = TVEC_T * K 

CALL MULT (DUM7 , TVEC_T , AKC , MM , NN , NN) 

MATRIX 3 ' DUM7 3 TVEC T * K' 

C CALL WRTT (MATRIX, DUM7,NN,MM)“ 

c Determine DUM3 = TVEC_T * DUM2 = TVECJT * K * TVEC 

CALL MULT (DUM3 , TV EC_T , DUM2 , MM , NN , MM) 

MATRIX*' DUM3 * TVECJT * K * TVEC' 

C CALL WRTT (MATR I X , DUM3 , MM , MM) 

C Determine DUM4 3 (TVECJT * K * TVEC)**-1 


DO 260 1=1, MM 
DO 261 J=1 ,MM 
DUM6(I, J)=DUM3(I, J) 

261 CONTINUE 

260 CONTINUE 

CALL MATINVC(DUM3,DUM4,MM,NR) 

MATRIX=' DUM4 = (TVEC_T * K * TVEC)**-1' 

C CALL WRTT (MATRIX, DUM4, MM, MM) 

C Determine DUM5=DUM9*DUM4=(mess)*(TVEC_T*K*TVEC)**-l 


CALL MULT(DUM5,DUM9,DUM4,MM,MM,MM) 


C Determine DUM6=DUM4*DUM5 

C DUM6=((TVECJT*K*TVEC)**-l)*(mess)*(TVECJT*K*TVEC) 


**-l 
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CALL MULT(DUM6,DUM4,DUM5,MM,MM,MM) 

C Determine DUM8=DUM6*DUM7 % 

C DUM8=((TVEC_T*K*TVEC)**-l)*(mess)*((TVEC_T*K*TVEC)**-l)*TVEC_T*K 

CALL MULT (DUM8 , DUM6 , DUM7 , MM , MM , NN) 

Determine DUM6=DUM2*DUM8 
DUM6=K*TVEC* 

((TVEC_T*K*TVEC)**-1)* 

(mess)* 

((TVEC_T*K*TVEC)**-1)* 

TVEC_T*K 

CALL MULT(DUM6,DUM2,DUM8,NN,MM,NN) 

MATRIX* ' STIFFNESS OPT. DELTA C* 

CALL WRTT (MATRI X , DUM6 , NN , NN ) 

C Determine the new C matrices. 

DO 262 1*1, NN 
DO 263 J=1,NN 
OUMl(I,J)*ACORG(I,J) 

ACC(I,J)=ACORG(I, J) 

DUM2(I,J)*(0.,0.) 

D(JMM*REAL ( DUM6 ( I , J ) ) 

DUM2(I, J)=CMPLX(DUMM,0.) 

263 CONTINUE 

262 CONTINUE 

C Subtract the delta C from C matrix and solve elgenproblem. 

IF ( IF1 .GE. 904) GO TO 1000 
CALL SUBTT (DUM3 , DUM1 , DUM6 , NN , NN) 

MATRIX*' DELTA C BASED ON STIFFNESS' 

CALL WRTT (MATRIX ,DUM3,NN,NN) 

DO 209 1=1 ,NN 
DO 210 J=1,NN 
ACC(I, J)*DUM3(I, J) 

AC(I, J)=DUM3(I,J) 

210 CONTINUE 

209 CONTINUE 

IF1 = IF1 + 1 
IF(IFLAG .EQ. 4) GO TO 5 


Cm$m$ STIFFNESS AND DAMPING CORRECTION 
CU$$$$$$ Optimization Method 

C$$$$$$$$ 

mmm 


mum$ 

$$$$$$«$ 

*«$$$$$$ 

$$$»$$$$ 
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C Initialize the dummy matrices. 

8 CALL ZER(DUM1,NN,NN) 

CALL ZER(DUM2,NN,NN) 

CALL ZER(DUM3,NN,NN) 

CALL ZER(DUM4,NN,NN) 

CALL ZER(DUM5,NN,NN) 

CALL ZER(DUM6,NN,NN) 

CALL ZER(DUM7,NN,NN) 

CALL ZER(DUM8,NN,NN) 

CALL ZER(DUM9,NN,NN) 

C $$$$$$$$$$$$$$$$$$$$$*$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 

C DETERMINE THE WEIGHING FACTOR 
C The welglng factor Is DUM14=M*M 

DO 2448 I=1,NN 
DO 2449 J=1,NN 
DUM14(I, J)=AMC(I,J)*AMC(I, J) 

C DUM14(I, J)=AMC(I, J) 

2449 CONTINUE 
2448 CONTINUE 

C Determine the TVEC/TW 

DO 2551 1=1, MM 
DO 2552 J=1 ,NN 
DUM18(J, I) B TVEC(J,I)/TW(I, I) 

2552 CONTINUE 
2551 CONTINUE 

C Determine DUM1 = K * DUM18 * K * TEVEC_PT 
CALL MULT(DUM1,AKC,DUM18,NN,NN,MM) 

C Determine DUM2 = TVEC_T * DUM1 = TVEC_T * K * TVEC_PT 
CALL MULT (DUM2 , TVEC_T , DUM1 , MM , NN , MM) 

C Determine DUM1 = M * TVEC_D 

CALL MULT (DUM1 , AMC , TVEC_D , NN , NN , MM) 

C Determine DUM3 = TVEC_T * DUM1 ■= TVEC_T * M * TVEC_D 
CALL MU LT ( DUM3 , TV EC_T , DUM1 , MM , NN , MM) 

c $$$$*$$$$$$$«$$$$$$$$$*$$$*$$»$$$$$*»$$$$$$$$$*$ 
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c Determine DUM10 = TVEC_T * M**2 

CALL MULT (DUMIO , TVEC_T , DUM14 , MM , NN , NN) 

c$ssss$i$s$sts$ss$$ssss$ss$s$$s$$ssssis$s$ss$s$s$s$s 

C Determine DUM11 * M**2 * TVEC_T 

CALL MULT (DUM1 1 , DUM14 , TVEC , NN , NN , MM) 

c$s$$ss$$s$s$siits$s$s$$ssssiss$$s$ss$s$sis$5is$sss$ 

C Determine DUM1 * M * TVEC_PT 


CALL MULT(DUM1,AMC,DUM18,NN,NN,MM) 
CS$S$$SS$S$$$$S$$SS$$S$$S$$$SS$S$$SSS|$SSSJS$$S$$$$S 

C Determine DUM5 * TVEC_T * DllMl * TVEC_T M TVEC_PT 
CALL MULT (DUM5 , TVEC_T , DUM1 , MM, NN ,W1) 

C Determine DUM12 = DUM5**-1 * (TVEC_T * M * TVEC_PTJ -l 


CALL MATINVC(DUM5,DUM12,MM,MM) 

CALL MULT(DUM16,DUM12,DUM10 t MM,MM,NN) 

CALL MULT(DUM17,DUMll t DUM12,NN,MN,MM) 

C Det.nrfn. DUH5 ■ : TVK) 4 (TVEC _ T . „ . TV EC_D) 

CALL ADD (DUM5 , DUM2 , DUM3 , MM , MM) 

c Determine 0UM6 * DUM5 * DUM16/ * m 

C ((TVEC T * K * TVEC) + (TVEC T * M * TVEC_D}) 

C (TVECj* M * TVEC_PT)**-1 * TVEV_T * M~2 

CALL MULT (DUM6 , DUM5 , DUM16 , MM , MM , NN) 

CSSSSS$$S$SS$$$$SS$JSSS$SSSSS$S$$tSi$$tSSSS$$SSSSS$S 

c Determine DUM7 = DUM17 * DUM6 - 
r 1M**? * TVEC *(TVEC T * M * TVEC PT)**-1)* 

C UTVEC T * K * TVECT + (TVEC T * _ M * TVEC_D))* 
c (TVECjr - M * TVEC_PT)«-1 * TVEV_T * H-2 

CALL MULT(DUM7,DUM17,DUM6,NN,MM,NN) 

MATRIX®' DUM7' 

C CALL WRTT (MATRIX , DUM7 , NN , NN) 

C STOP 

CiS$$$S$$S$$S$SS$$S$tSS$$JSj5}S$S$$S$S$$S$$$SSSS$SSS 
C Assume a value for the initial value of ACT 
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C Say 90% of the original. 


00 1=1 , NN 
DO J=1,NN 

DUM5(I, J)=AC0RG(I,J) 

ACT(I,J)=ACORG(I,J) 

END DO 
END DO 

DUM5(3,3)=(.9,0.) 

DUM5(6,6)=(.9,0.) 

DUM5(9,9)=(.9,0.) 

DUM5(15,15)=(.9,0.) 

DUM5(18,18)=(.9,0.) 

DUM5(21,21)=(.9,0.) 

DUM5 (27,27)=(.9,0.) 

DUM5(30,30)=(.9,0.) 

DUM5(33,33)=(.9,0.) 

ACT(2,2)=(.95,0.) 

ACT(4,4)=(.95,0.) 

ACT(5,5)=(.95,0.) 

ACT(6,6)=(.95,0.) 

C the step size Is .05. The assumed value of ACT can grow to 
C 105% by 3 steps, IJ=3. 

DJ=.025 

IJ=3 


C IJI Is counter for convergence. 

IJI=0 

IIJII=1 

TMAG1=1. 

TMAG2=1. 


C The following are the elements of C matrix. 
C as they grow. 


IIJ2=-1 
DO 112*1 , IJ 
IIJ2=IIJ2+1 

ACT (3 , 3) =DUM5 (3 , 3)+l I J2*DJ 
IJ4=-1 
DO 114=1, IJ 
IJ4=IJ4+1 

ACT (6 , 6) =DUM5 (6 , 6)+I J4*DJ 
I J5=- 1 
DO 115=1, IJ 
IJ5=IJ5+1 

ACT (9,9) =DUM5 (9 , 9) +1 J5*DJ 
I J6=— 1 
DO 116=1, IJ 
I J6= I J6+1 

ACT(15,15)=DUH5(15,15)+IJ6*DJ 

IJ8=-1 

DO 118=1, IJ 
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IJ8=IJ8+1 

ACT (18,18) =DUM5 (18 , 18)+I J8*DJ 
IJ10=-1 
DO 1110=1, IJ 
IJ10=IJ10+1 

ACT (21 ,21)'DUM5(21,21)+IJ10*DJ 
IJ11=-1 
DO 1111=1 . IJ 
IJU=IJ11+1 

ACT (27,27) =DUM5 (27 , 27 ) + I J1 1*DJ 
IJ12=-1 
DO 1112=1, IJ 
IJ12=IJ12+1 

ACT(30,30)=DUM5(30,30)+IJ12*DJ 
IJ33=-1 
DO 1133=1, IJ 
IJ33=IJ33+1 

ACT (33 . 33) =DUM5(33 , 33)+I J33*DJ 


C Determine DUM1 = ACT * TVEC 

CALL MULT (DUM1 , ACT , TVEC , NN , NN , MM) 


C Determine DUM4 = TVEC_T * DUM1 = TVEC_T ACT TVEC 
CALL MULT (DUM4,TVEC_T,DUM1,MM,NN,MM) 

C Determine DUM8 = DUM4 * DUM16 = 

C (TVEC T * ACT * TVEC)* 

C ((TVEC_T * M * TVEC_PT)**-1 * TVEV_T * M**2) 

CALL MULT (DUM8 , DUM4 , DUM16 , MM, MM , NN) 


c$$$$$s$$s$s$sss$$$s$ssss$$$s$s$$$$sssw$$sss$s$sss$ 

C Determine DUM9 = DUM17 * DUM8 = 

C (M**2 * TVEC *(TVEC_T * M * TVEC_PT)**-1) 

C (TVEC T * ACT * TVEC)* 

C ( (TVEC_T 


I I *1- W . 

* M * TVEC PT)**-1 * TVEV_T * M**2) 


CALL MULT (DUM9 , DUM17 , DUM8 , NN, MM, NN) 
MATRIX=' DUM9* 

CALL WRTT (MATRIX, DUM9.NN.NN) 


CSS$S$S$S$$$JSSSS$$$S$$S$$SSSSiS$SSS$$$SSSSSSSSSSSSt 


C Determine DUM1 
C (M**2 * TVEC * 
C ((TVEC_T * K * 
C (TVEC T * M * 


(TVEC T * M * TVEC PT)**-1)* 
TVECj + (TVEC T * M * TVEC_D) 
TVEC PT)**-1 *"TVEV_T * M**2 


+ 


(TVEC_T * ACT 


CALL ADD (DUM1 , DUM7 , DUM9 , NN , NN) 
MATRIX' * DUM1* 

C CALL WRTT (MATRIX , DUM1 , NN , NN) 

C STOP 


TVEC))* 


IJI'IJI+1 
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C Determine DUM1 = K * DUM18 = K * TVEC_PT 

CALL HULT(DUM1,AK0RG,DUM18,NN,NN,MM) 

C Determine DUM2 - TVEC_T * DUM1 - TVEC_T * K * TVEC_PT 
CALL MULT (DUM2 , TVEC_T , DUM1 , MM , NN.MM) 

C Determine DUM1 = M * TVECJ) 

CALL MULT (DUM1 , AMC , TVEC_D t NN , NN , MM) 

C Determine DUM3 = TVEC_T * DUM1 = TVEC_T * M * TVEC_D 
CALL MULT (DUM3 , TVEC_T , DUM1 , MM , NN , MM) 

C Determine DUM1 = ACT * TVEC 

CALL MULT (DUM1 , ACT, TVEC, NN, NN.MM) 

C Determine DUM4 * TVEC_T * DUM1 = TVEC_T * ACT * TVEC 
CALL MULT (DUM4 , TVEC_T , DUM1 , MM , NN , MM) 

C Determine DUM6 = DUM2 + DUM3 = 

C (TVEC_T * K * TVEC) + (TVEC_T * M * TVEC_D) 
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CALL ADD ( DUM6 , DUM2 , DUM3 , MM , MM) 


C Determine DUM8 = DUH6 + DUM4 = 

C (TVEC T * K * TVEC) + (TVEC_T * M * TVEC_D) + (TVEC_T * ACT * TVEC) 

CALL ADD ( DUM8 , DUM6 , DUMA , MM , MM) 

CS$$SSSSSS$$SS$$$$S$$$$SS$S$$$S$$$$$$$$$SS$S$$$$SS$S 
C Determine DUM14 = DUM8 * DUM12 

C ((TVEC_T * K * TVEC) + (TVEC T * M * TVEC_D) + (TVEC_T * ACT * TVEC))* 
C (TVEC_T * M * TVEC_PT)**-1 

CALL MULT(DUM14,DUM8,DUM12,MM,MM,MM) 

C Determine LAMDA_T - DUM15 - DUM12 * DUM14 
C (TVEC T * H * TVEC PT)**-1 * 

C ((TVECJ * K * TVEC) + (TVEC T * M * TVEC_D) + (TVEC_T * ACT * TVEC))* 
C (TVECJ * M * TVEC_PT)**-1 

CALL MULT(DUM15,DUM12,DUM14,MM,MM,MM) 

C Determine DUM1 « TVEC_T * M 

CALL MULT (DUM1, TVEC T.AMC.MM.NN.NN) 

C CALL MULT (DUM1 , TVECJ , AKC , MM , NN , NN) 

C Determine DUM2 - M * TVEC_PT 

CALL MULT (DUM2 , AMC , DUM18 , NN , NN , MM) 

C CALL MULT (DUM2 , AKC , DUM18 , NN , NN , MM) 

C Determine DUM3 * LAMDA T * DUM1 
C ((TVEC T * M * TVEC PTj**-l * 

C ( (TVEC~T * K * TVECj + (TVEC_T * M * TVEC_D) + (TVEC_T * ACT * TVEC))* 

C (TVECjf * M * TVEC_PT)**-1)* 

C (TVECJ * M) 

CALL MULT (DUM3,DUM15,DUM1,MM,(W,NN) 

C Determine DUM4 = DUM2 * DUM3 = DUM2 * LAMDA_T * DUM1 
C (M * TVEC PT)* 

C ((TVEC T * M * TVEC PT)**-1 * 

C ((TVEC"T * K * TVECj + (TVECJ * M * TVECJ) + (TVECJ * ACT * TVEC))* 

C (TVECJ * M * TVEC PT)**-1)* 

C (TVECJ * M) 

CALL MULT (DUM4,DUM2,DUM3,NN,MM I NN) 

C Determine AKT = NEW VALUE OF AKC = AKC + DUM4 
C AKC + 

C (M * TVEC PT)* 

C ((TVEC T * M * TVEC_PT)**-1 * 
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C ( (TVEC T * K * TVEC) + (TVEC_T * M * TVEC_D) + (TVEC_T * ACT * TVEC))* 
C (TVEC_T * M * TVEC_PT)**-1)* 

C (TVEC_T * M) 


DO IK=1 ,NN 
DO JK=1 ,NN 

DUM4(IK, JK)=1.0*DUM4(IK, JK) 
END DO 
END DO 

CALL SUBTT ( AKT , AKORG , DUM4 , NN , NN) 

C CALL ADD (AKT, AKORG, DUM4,NN,NN) 


DO IK=1,NN 
DO JK=1,NN 

AKC(IK, JK)=AKT(IK, JK) 

END DO 
END DO 

I FLAG = 5 

CALL MULT (DUM1 , AMC, AVEC_D, NN, NN, MM) 
CALL MULT (DUM2 , AV EC_D_T , DUM1 , MM, NN , MM) 

CALL MULT (DUM1 , AMC , TVEC_D , NN , NN , MM) 
CALL MULT (DUM3 , TVEC _D_T , DUM1 , MM, NN , MM) 


DO IK=1,MM 

DUM1 (IK, IK)=DUM2(IK,IK)/DUM3(IK,IK) 
END DO 


C 

C 


TT21=ABS(REAL(DUM1 (1 , 1) ) ) 
TT22=ABS (REAL(DUM1 (2,2) ) ) 
TT23=ABS (REAL (OUMl (3 , 3) ) ) 
TT24=ABS (REAL (DUM1 (4,4))) 


TT1=ABS(REAL(AW(1,1))) 

TT2*ABS ( REAL ( TW (1,1))) 

TT5=ABS ( ABS (REAL (AW (2,2))) - ABS (REAL (TW(2, 2) ) ) ) 
TT6=ABS(ABS(REAL(AW(1,1)))-ABS(REAL(TW(1,1)))) 
TT7=ABS ( ABS ( AIMAG (AW (2 , 2) j ) -ABS (AIMAG (TW(2 , 2) ) ) ) 
TT8=ABS ( ABS ( AIMAG ( AW ( 1 , 1 ) ) ) - ABS ( AIMAG (TW( 1 , 1 j ) ) ) 
TT55=ABS (ABS (REAL (AW(3 , 3) ) ) -ABS (REAL (TW(3 , 3) ) ) ) 
TT66=ABS (ABS (REAL (AW (4 , 4) ) ) -ABS (REAL (TW(4 ,4) ) ) ) 
TT9=REAL(AVEC_D(1 ,2)) 

TT10=REAL(AVEC_D(1,3)) 

TT11=REAL(AVEC_D(1, 18)) 

TT12=REAL( AVEC_D (1,25)) 

TT13=REAL(AVEC_D(2,2) ) 

TT14=REAL(AVEC_D(2,3) ) 

TT15=REAL(AVEC_D(2, 18)) 

TT16=REAL(AVEC_D(2 , 25) ) 


IF (TT5 .LT. 1. .AND. TT6 .LT. 1.) THEN 
1F(TT7 .LT. 1. .AND. TT8 .LT. 1.) THEN 
IF (TT55 .LT. 1. .AND. T66 .LT. 1.) THEN 
IF (TT21 .LT. 1.004 .AND. TT21 .GT. 0.996) THEN 
IF(TT22 .LT. 1.004 .AND. TT22 .GT. 0.996) THEN 
IF(TT21 .LT. 1.02 .AND. TT21 .GT. 0.98) THEN 
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I F (TT22 .LT. 1.02 .AND. TT22 .GT. 0.98) THEN 

I F (TT23 .LT. 1.02 .AND. TT23 .GT. 0.98) THEN 

IF (TT24 .LT. 1.02 .AND. TT24 .GT. 0.98) THEN 

C IF(TT9 .LT. .339 .AND. TT9 .GT. .337) THEN 

C IF(TT10 .LT. -.335 .AND. TT10 .GT. -.337) THEN 

C IF(TT11 .LT. -.644 .AND. TT11 .GT. -.646) THEN 

C IF (TT12 ,LT. .196 .AND. TT12 .GT. .194) THEN 

C IF(TT13 .LT. .152 .AND. TT13 .GT. .150) THEN 

C I F (TT14 .LT. .155 .AND. TT14 .GT. .153) THEN 

C I F (TT15 .LT. .614 .AND. TT15 .GT. .612) THEN 

C IF(TT16 .LT. .32 .AND. TT16 .GT. .318) THEN 


2559 WRITE(2,2600)IJI,IIJII 

2600 FORMAT (5X, 'NO. OF ITERATNS *' ,15, * ITERATION' , 15) 
IFLAG1=6 

MATRIX*' DUM4* 

C CALL WRTT (MATRIX , DUM4 , NN , NN ) 

MATRIX* ' CKTSUBT ' 

CALL WRTT (MATRIX , AKC , NN , NN) 

MATRIX= 1 CCT * 

CALL WRTT (MATRIX, ACT, NN.NN) 

MATRIX* ' CW' 

CALL WRn (MATRIX, AW, MM, MM) 

MATRIX* ' CVEC 1 

CALL WRTT (MATRIX , AVEC , NN , MM) 

MATRTXs 1 CVEC D 1 

CALL WRTT (MATRIX , AVEC_D , NN , fW) 

TYPE*,* ITERATION', IJI 

TYPE *,'11',REAL(AW(1,1)),REAL(TW(1,1)) 

TYPE *, '22* ,REAL(AW(2,2)),REAL(TW(2,2)) 

TYPE *,'MAG',TMAG1,TMAG2 
IF(IFLAG1 .EQ. 6) GO TO 999 
C IF(IFLAG1 .EQ. 6) GO TO 998 

C ELSE 

C ENDIF 

C ELSE 

C ENDIF 

C ELSE 

C ENDIF 

C ELSE 

C ENDIF 

C ELSE 

C ENDIF 

ELSE 
ENDIF 
ELSE 
ENDIF 
ELSE 
ENDIF 
ELSE 
ENDIF 
ELSE 
ENDIF 
ELSE 
ENDIF 
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ELSE 
END IF 

IF(IFLAG .EQ. 5) GO TO 5 
2558 TYPE \IJI 


998 END DO 

END DO 
END DO 
END DO 
END DO 
END DO 
END DO 
END DO 
END DO 


C DETERMINE THE ORTHOGONALITY CONDITION. 

C DETERMINE DUM1 = M * AVEC_D 

999 CALL MULT (DUM1 , AMC, AVEC D.NN.NN.MM) 

MATRIX=' DUM1 = M * AVEC D' 

C CALL WRTT (MATRIX, DUMl.NN, MM) “ 

C DETERMINE DUM2 = AVEC_D_T * DUM1 = AVEC_D_T * M * AVEC_D 

CALL MULT (DUM2 , AVEC_D_T . DUM1 , MM , NN , MM) 

MATRIX=' DUM2 = AVEC D T * M * AVEC_D' 

C CALL WRTT(MATRIX,DUM2,MM,MMT 

C DETERMINE DUM1 = K * AVEC 

CALL MULT (DUMl.AKT, AVEC ,NN,NN, MM) 

MATRIX=' DUM1 «= K * AVEC' 

C CALL WRTT (MATRIX, DUMl.NN, MM) 

C DETERMINE DUM4 = AVEC_T * DUM1 = AVEC_T * K * AVEC 

CALL MULT (DUM4 , AVEC_T , DUM1 ,MM,NN,MM) 

MATRIX=' DUM4 = AVEC_T * K * AVEC' 

C CALL WRTT (MATRIX, DUM4, MM, MM) 

C DETERMINE EB = DUM4 - DUM2 

CALL SUBTT ( EB , DUM4 , DUM2 , MM , MM) 

WRITE(2,800) 

MATRIX='EB = AVEC_T * K * AVEC - AVEC_D_T * M * AVEC_D' 
CALL WRTT (MATRIX, EB, MM, MM) 
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C DETERMINE DUM1 3 M * TVEC_D 

CALL MULT (DUM1 , AMC , TVEC_D , NN , NN , MM) 
MATRIX 3 ' DUM1 = M * TVEC_D’ 

C CALL WRTT (MATRIX, DUMl.NN, MM) 


C DETERMINE DUM2 = TVEC_D_T * DUM1 = TVEC_D_T * M * TVEC_D 


CALL MULT (DUM2 , TVEC D T , DUM1 , MM , NN , MM) 
MATRIX 3 ' DUM2 3 TVEC D T * M * TVEC_D' 
C CALL WRTT (MATRIX, DUM2.MM.MMj 


C DETERMINE DUM1 3 K * TVEC 


CALL MULT (DUMl.AKT, TVEC, NN.NN, MM) 
MATRIX 3 ' DUM1 3 K * TVEC' 

C CALL WRTT (MATRIX, DUMl.NN, MM) 


C DETERMINE DUM4 3 TVEC_T * DUM1 3 TVEC_T * K * TVEC 


CALL MULT (DUM4 , TV EC_T , DUM1 , MM , NN , MM) 
MATRIX 3 ' DUM4 3 TVEC T * K * TVEC' 

C CALL WRTT (MATRIX, DUM4, MM, MM) 

C DETERMINE TB 3 DUM4 - DUM2 


CALL SUBTT(TB,DUM4,DUM2,MM,MM) 

MATRIX* 'TB^ 3 TVEC_T * K * TVEC - TVEC_D_T * M * TVEC_D' 
CALL WRTT (MATRIX, TB.MM.MM) 

cssss$sss$$$ss$$$s$$s$$s$$$$$s$$$$$s$$$sss$$$$ss$ss$ 

C DETERMINE DUM1 3 M * TVEC_D 


CALL MULT (DUM1 , AMC , TVEC_D , NN , NN , MM) 
MATRIX 3 ' DUM1 3 M * TVEC_D' 

C CALL WRTT (MATRIX.DUM1 ,NN, MM) 


C DETERMINE DUM2 3 TVEC_D_T * DUM1 3 TVEC_D_T M 

CALL MULT (DUM2 , TV EC_D T.DUM1 .MM.NN.MM) 
MATRIX 3 ' DUM2 3 TVEC_D T * M * TVEC_D 

C CALL WRTT (MATRIX. DUM2, MM, MMT 


TVEC D 


cs$ssm$s$$sss$$$ssmss$$$m$H$mmmssmm 

C DETERMINE DUM1 3 K * TVEC 


CALL MULT (DUMl.AKORG, TVEC, NN.NN, MM) 
MATRIX 3 ' DUM1 3 K * TVEC 

C CALL WRTT (MATRIX, DUMl.NN, MM) 



CALL MULT (DUM4 , TVEC.T , DUM1 , MM, NN , MM) 
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MATRIX® ' DUM4 = TVEC T * K * TVEC' 

C CALL WRTT ( MATRIX, DUM4, MM, MM) 

C DETERMINE TB ® DUM4 - DUM2 

CALL SUBTT(TB,DUM4,DUM2,MM,MM) 

WRITE(2,802) 

MATRIX® 'TB = TVEC T * K * TVEC - TVEC D T * M * TVEC D' 
CALL WRTTCMATRlX.TB.MM.MM) 

C DETERMINE DUM1 = M * AVEC_D 

CALL MULT (DUM1 , AMC , AVEC D,NN,NN,MM) 

MATRIX® ' DUM1 ® M * AVEC_D' 

C CALL WRTT (MATRIX, DUM1 , NN, MM) 

C DETERMINE DUM2 = AVEC_T * DUM1 * AVEC_T * M * AVEC_D 

CALL MULT(DUM2,AVEC_T,DUM1,MM,NN,MM) 

MATRIX® ' DUM2 * AVEC T * M * AVEC D' 

C CALL WRTT (MATRIX, DUM2, MM, MM) 

C DETERMINE DUM1 ® M * AVEC 

CALL MULT ( DUM1 , AMC , AVEC , NN , NN , MM) 

MATRIX® ' DUM1 ® M * AVEC' 

C CALL WRTT (MATRIX , DUM1 , NN , MM) 

C DETERMINE DUM4 ® AVEC_D_T * DUM1 ® AVEC_D_T * M * AVEC 

CALL MULT (DUM4 , AVEC_D_T , DUM1 , MM , NN , MM) 

MATRIX® 1 DUM4 = AVEC D T * M * AVEC' 

C CALL WRTT (MATRIX , DUM4 , MM , MMj 

C DETERMINE DUM5 = DUM2 + DUM4 = 

C AVEC_T * M * AVEC_D + AVEC_D_T * M * AVEC 

CALL ADD (DUM5 , DUM2 , DUM4 , MM , MM) 

c DETERMINE DUM1 = C * AVEC 

CALL MULT(DUM1, ACT, AVEC, NN.NN.MM) 

MATRIX® ' DUM1 = C * AVEC' 

C CALL WRTT (MATRIX, DUMl.NN, MM) 

C DETERMINE DUM4 ® AVEC_T * DUM1 ® AVEC_T * C * AVEC 

CALL MULT (DUM4 , AVEC_T , DUM1 , MM , NN , MM) 

MATRIX® ' DUM4 ® AVEC T * C * AVEC' 

C CALL WRTT (MATRIX , DUM4 , MM, MM) 
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C DETERMINE EA = DUM4 + DUM5 

CALL ADD(EA,DUM4,DUM2,MM,MM) 

WRI TE (2 , 800) 

C800 FORMAT (IX, 'ORTHO BASED ON IMPROVED MATRICES AND VECTORS') 

MATRIX* ' EA=AVEC_D_T*C*AVEC+AVEC_D_T*M*AVEC_D+AVEC_T*M*AVEC_D_T ' 
CALL WRTT (MATRIX, EA, MM, MM) 

C DETERMINE DUM1 = M * TVEC_D 

CALL MULT (DUM1 , AMC , TVEC_D , NN , NN , MH) 

MATRIX*' DUM1 = M * TVEC_D' 

C CALL WRTT (MATRIX , Dlftll , NN , MM) 

C DETERMINE DUM2 = TVEC_T * DUM1 = TVEC_T * M * TVEC_D 

CALL MULT (DUM2 , TV EC_T , DUM1 , MM , NN , MM) 

MATRIX*' DUM2 * TVEC_T * M * TVEC D* 

C CALL WRTT (MATRIX, DUM2, MM, MM) 

C DETERMINE DUM1 = M * TVEC 

CALL MULT (DUM1, AMC, TVEC, NN.NN, MM) 

MATRIX*' DUM1 * M * TVEC' 

C CALL WRTT (MATRIX, DUMl.NN, MM) 

C DETERMINE DUM4 = TVEC_D_T * DUM1 * TVEC_D_T * M * TVEC 

CALL MULT (DUM4 , TVEC_D T,DUM1,MM,NN,MM) 

MATRIX* ' DUM4 * TVEC_D T * M * TVEC' 

C CALL WRTT(MATRIX,DUM4,MM,MMy 

C DETERMINE DUM5 = DUM2 + DUM4 = 

C TVEC_T * M * TVEC_D + TVECJ) J * M * TVEC 

CALL ADD(DUM5,DUM2,DUM4,MM,MM) 

CSSSSSS$$SS$SSSSSSS$SSSSSSSS$SSSS$S$SSSSJSSSSSS$SSSS 
C DETERMINE DUM1 = C * TVEC 

CALL MULT (DUM1, ACT, TVEC, NN.NN, MM) 

MATRIX* ' DUM1 = C * TVEC' 

C CALL WRTT(MATRIX,DUM1,NN,MM) 

cs$j$sm$s$$mss$smmm$s$$sj$$s$mmssssss$ 

C DETERMINE DUM4 = TVEC_T * DUM1 = TVEC_T * C * TVEC 

CALL MULT (DUM4 , T VEC_T , DUM1 , MM , NN , MM) 

MATRIX*' DUM4 = TVEC T * C * TVEC' 

C CALL WRTT (MATRIX, DUM4, MM, MM) 

C DETERMINE TA = DUM4 + DUM5 

CALL ADD(TA,DUM4,DUM2,MM,tW) 
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WRITE (2 , 801 ) 

C801 FORMAT (IX, 'ORTHO BASED ON TEST VECTORS AND IMPROVED MATRICES') 
MATRIX* 'TA=TVEC_D_T*C*TVEC+TVEC D T*M*TVEC D+TVEC T*M*TVEC D T' 
CALL WRTT (MATRIX, TA, MM, MM) 

csss$sssmssmssssmssmmmmsn$mm$ss$s 

C DETERMINE DUM1 = M * TVEC_D 

CALL MULT (DUM1 , AMC , T VEC_D , NN , NN , MM) 

MATRIX= ' DUM1 = M * TVEC D' 

C CALL WRTT (MATRIX .DUMl.NN, MM) ~ 

c DETERMINE DUM2 = TVEC_T * DUM 1 = TVEC_T * M * TVECD 

CALL MULT(DUM2 , TVEC_T , DUM1 , MM , NN , MM) 

MATRIX= ' DUM2 = TVEC T * M * TVEC D' 

C CALL WRTT (MATRIX, DUM2, MM, MM) 

C DETERMINE DUM1 = M * TVEC 

CALL MULT (DUM1, AMC. TVEC, NN.NN, MM) 

MATRIX* ' DUM1 = M * TVEC* 

C CALL WRTT (MATRIX, DUMl.NN, MM) 

C DETERMINE DUM4 = TVEC_D_T * DUM1 * TVEC_D T * M * TVEC 

CALL MULT (DUM4 , TVEC_D T.DUMl.MM.NN.MM) 

MATRIX*' DUM4 * TVEC D T * M * TVEC' 

C CALL WRTT (MATRIX, DUM4, MM, MMj 

C DETERMINE DUM5 = DUM2 + DUM4 = 

C TVEC_T * M * TVEC_D + TVEC_D_T * M * TVEC 

CALL ADD(DUM5,DUM2.DUM4,fW,MM) 

C DETERMINE DUM1 = C * TVEC 

CALL MULT (DUM1 , ACORG, TVEC, NN, NN, MM) 

MATRIX*' DUM1 = C * TVEC' 

C CALL WRTT (MATRIX, DUMl.NN, MM) 

C DETERMINE DUM4 = TVEC_T * DUM1 * TVEC_T * C * TVEC 

CALL MULT (DUM4 , TVEC_T , DUM1 , MM, NN , MM) 

MATRIX*' DUM4 = TVEC T * C * TVEC' 

C CALL WRTT (MATRIX, DUM4, MM, MM) 

c$$$$$$sss $$$$$$$$$$$$$$$»$$$$$$$$»$$$$$$$$$$$$$$$ 

C DETERMINE TA = DUM4 + DUM5 

CALL ADD(TA,DUM4,DUM2,MM,MM) 

WRITE (2, 802) 

C802 F0RMAT(1X, 'ORTHO BASED ON TEST VECTORS AND ANALYTICAL MATRICES') 
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MATRIX* ' TA=TVEC_D T*C*TVEC+TVEC_D T*M*TVEC_D+TVEC_T*M*TVEC_D_T' 
CALL WRTKMATRlX.TA.MM.MM) 

1000 END 


C=SUBROUTINE=ZER 

SUBROUTINE ZER(A,N,M) 
C A(N,M)=0. 

COMPLEX A(500,500) 
INTEGER I.J.M.N 
DO 1 1=1 ,N 


DO 2 J=1,M 
A(I|J)=(0.,0.) 
2 CONTINUE 

1 CONTINUE 

RETURN 
END 


C*SUBROUTINE=WRT 

SUBROUTINE WRT(A,N,M) 

COMPLEX A(N,M) 

INTEGER I , J,N,M 
WRITE(2,115)N,M 

115 FORMAT ( 10X, 'N * ',15, 5X,'M= ',15) 
WRITE(2,114) 

114 FORMAT (5X) 

WRITE(2,114) 

WRITE(2,114) 

WRITE(2,116) 

116 FORMAT (5X, ' ROW COL') 

DO 130 1=1, N 

DO 131 J-l.M 
WRITE(2, 132)1, J.A(I.J) 

132 FORMAT (5X,I4,5X, I4,5X,F8.6,5X, F8.6) 

131 CONTINUE 

WRITE (2 , 114) 

WRITE(2,114) 

130 CONTINUE 

RETURN 
END 


C=SUBROUTINE=WRTT 

SUBROUTINE WRTT(NAME, A.N.M) 

COMPLEX A (500, 500) 

INTEGER I , J,N,M 
CHARACTER NAME*80 
WRITE (2 , 125) 

WRITE(2, 125) 

WRITE(2, 125) 

125 FORMAT ( , * t ***************************** 1k1k 

+**★*****★★***★*************************** * ) 
WRITE(2,114) 

WRITE (2, 120) NAME 
120 FORMAT (5X.A50) 

WRITE(2,114) 
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WRITE(2, 114) 

WRITE(2, 115)N,M 

115 FORMAT (1 OX, 'NUMBER OF ROWS, N = ’,15, 
4 5X, 'NUMBER OF COLUMN, M = ',15) 

WRITE(2, 114) 

114 FORMAT (5X) 

WRITE(2, 114) 

WRITE(2, 114) 

WRITE (2 1 1 16) 

116 FORMAT (5X,' ROW COL 

+ REAL 

+ IMAGINARY') 

WRITE(2, 117) 

1 17 FORMAT (7X , ' ***** ', 4X ,'*****', 10X , 

+ 1 **************** ■ ^ 8x, ' **************** ■ ) 

DO 130 1=1, N 
DO 131 J=1,M 
WRITE (2, 132)1, J,A(I,J) 

132 FORMAT ( 5X , 14 , 5X , 14 , 5X , E20 . 9 , 5X , E20 . 9) 

131 CONTINUE 

WRITE(2. 114) 

WRITE (2, 114) 

130 CONTINUE 

RETURN 
END 


C=SUBROUTINE=ADD 

SUBROUTINE ADD(A,B,C,M,N) 

C 

£****** 

C 

C MATRIX ADDITION ( A = B + C ) 

C 

£****** 

c 

C COMPLEX A,B,C 

INTEGER I,J,M,N 

C IMPLICIT REAL*8 (A-H.O-Z) es:vax 

C 

C DIMENSION A(M,N),B(M,N),C(M,N) 

COMPLEX A (500 , 500) , B (500 , 500) , C (500 , 500) 


DO 1 1=1, M 
DO 2 J=1,N 
A(I, J)=B(I, J)+C(I, J) 

2 CONTINUE 
1 CONTINUE 
RETURN 
END 

C=SUBROUTINE=SUBTT 

SUBROUTINE SUBTT(A,B,C,M,N) 

C 

r* * * * * * 

C 

C MATRIX ADDITION ( A = B - C ) 
C 

C* * * * * * 
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c 

c COMPLEX A,B,C 

INTEGER 1, J,M,N 

C IMPLICIT REAL*8 (A-H.O-Z) 

C 

C DIMENSION A(M,N),B(M,N),C(M,N) 

COMPLEX A(500,500) ,B(500,500) ,C(500,500) 


DO 1 1=1. M 
DO 2 J=1,N 
A(I,J)=B(I,J)-C(I, J) 

2 CONTINUE 

1 CONTINUE 
RETURN 
END 

C=SUBROUTINE=MULTT 

SUBROUTINE MULTT(A,B.C,L,M,N) 

C 

£****** 

£ 

C MATRIX MULTIPLICATION ( A = B * C ) 
C 

c* * * * * * 

C 

IMPLICIT REAL*8 (A-H.O-Z) 

C 

DIMENSION A(L,N),B(L,M).C(N,M) 

DO 1 J=1,N 
DO 1 K=1,M 

IF(C(J,K) .EQ.O.DO) GOTO 1 
DO 2 1*1,1 4 , % 

A(I.J)*A(I.J)+B(I,K)*C(J,K) 

2 CONTINUE 
1 CONTINUE 

RETURN 

END 


C=SUBROUTINE=TRANSP CALLED BY 1 CNODEL ' 

SUBROUTINE TRANSP(A.N) 

C 

Q ************************************************* 

C THIS SUBROUTINE TRANSPOSES AN N * N MATRIX ONTO ITSELF 
C 

COMPLEX A, AH 
DIMENSION A(N,N) 

IF (N.LE.l) RETURN 
N1=N-1 
DO 1 1=1. N1 
11 = 1+1 
DO 1 J=I1,N 
AH=A(I, J) 

A(I,J)=A(J,I) 


:vax 


vax 
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A(J, I ) =AH 
1 CONTINUE 
RETURN 
END 


SUBROUTINE MATINVC (A, B, NROW, NR) 

COMPLEX A(500,500) ,B(500,500) 

COMPLEX DUM, FACTOR 
INTEGER I,K,NR0W,I1,J,J1 

K = 0 

DO 10 I = 1 , NROW 
K = K + 1 

A(I, (NROW + K)) = 1. 

10 CONTINUE 

DO 20 I * 1 , (NROW - 1) 

B(I. I) = A(I, I) 

DO 30 II = (I + 1), NROW 

FACTOR = A(I1, I) / A(I, I) 

DO 40 J1 = 1, NROW 

A(I1, Jl) = A(I1, Jl) - FACTOR * A(I, Jl) 

A(I1, (Jl+NROW) ) = A(I1, (Jl+NROW) )-FACTOR*A(I, (Jl+NROW) ) 

40 CONTINUE 

30 CONTINUE 
20 CONTINUE 

DO 50 I «= NROW ,2,-1 
DO 60 II = 1 , (I - 1) 

FACTOR = A(I1, I) / A(I, I) 

DO 70 Jl = 1 , NROW 

A(I1, Jl) = A ( 1 1 , Jl) - FACTOR * A(I, Jl) 

A(I1, (J1+NR0W))=A(I1, (Jl+NROW) )-FACTOR*A(I, (Jl+NROW)) 

70 CONTINUE 

60 CONTINUE 

50 CONTINUE 

DO 80 I = 1 , NROW 
B(I, I) = A(I, I) 

80 CONTINUE 

DO 90 I = 1 . NROW 
DO 100 J = 1 , NROW 
A ( I , J) = A(I, J) / B(I, I) 

A(I, (J + NROW)) = A(I, (J + NROW)) / B(I, I) 

100 CONTINUE 

90 CONTINUE 

C WRITE(MIO) 

110 FORMAT (5X , ‘ ROW \ 5X , ' COLUMN 1 , 5X , ' INVERSE (I , J) 1 ) 

DO 120 I = 1 , NROW 
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c 

C140 

C 

C141 

130 

120 


C 


17 

16 

20 


C 

C 


2 

1 


C 

17 


C 

18 


C 

20 


DO 130 J = 1 , NROW 
B ( I , J ) =A ( I , ( J+NROW) ) 

WRITE(*. 140)1, J, A(I, (J + NROW)) 
FORMAT(5X,I5,5X,I5,5X,F10.6,5X,F10.6) 
WRITE (* t 141)I , J, B(I , J) 

F0RMAT(20X, 15, 5X, I5,5X,F10.6,5X,F10.6) 
CONTINUE 
CONTINUE 
RETURN 
END 


SUBROUTINE MULT (A,B,C,NL,NM,NN) 
A(NL,NN)«B(NL,NM)*C(NM,MN) 

COMPLEX A(500,500) ,B(500,500) ,C (500, 500) 
COMPLEX DUM 

INTEGER I,J,K,L,M,N,NL,NM,NN 
DO 20 1=1, NN 
DO 16 N=1,NL 
DUM= (0. ,0.) 


DO 17 J=1,NM 
DUM=DUM+C(J, I)*B(N, J) 
CONTINUE 
A(N, I)=DUM 
CONTINUE 
CONTINUE 


RETURN 

END 


SUBROUTINE RNAS(KAA,MAA,CAA,N) 

REAL KAA(500,500) ,MAA(500,500) ,CAA(500,500),DAA(500,500) , VAL(5) 
INTEGER NROW,NNROW,NCOL,I,II,K,Kl t K2,K3,J,NBEG,NUM 
OPEN (UNIT=1 ,FILE='T1.F21 ' , STATUS* 'OLD * ) 

OPEN (UNIT*2, FILE='OUT. DAT' ,status=' new') 

DO 1 I=1,N 
DO 2 J=1,N 
KAA(I, J)=0. 

MAA(I,J)=0. 

CAA(I, J)=0. 

DAA(I, J)=0. 

CONTINUE 

CONTINUE 

DO 99 11=1,3 
READ (1,17 ) NROW , NCOL 
WRITE(*,17)NR0W,NC0L 
F0RMAT(2I8) 

DO 100 1=1, NROW 

READ(1,18)NNR0W,NBEG,NUM 
WRI TE (*,18) NNROW, NBEG, NUM 
FORMAT (3 18) 

IF (NUM .LE. 5) THEN 

READ(1,20) VAL(l) , VAL(2) , VAL(3) ,VAL(4) , VAL(5) 

WRITE (* , 20) VAL ( 1) , VAL (2) , VAL (3) , VAL (4) , VAL (5) 
F0RMAT(5E16.9) 
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K3=0 
K1=NBEG 
K2=K1+NUM-1 
DO 200 J=K1, K2 
K3=K3+1 

DAA ( NNROW , J ) = VAL ( K3 ) 

IF(II. EQ.1)KAA(NNR0W, J)=DAA(NNROW, J) 
IF(II.EQ.2)MAA(NNR0W,J)=DAA(NNR0W,J) 
IF(II.EQ.3)CAA(NNROW,J)=DAA(NNROW,J) 

C WRITE(2,235)NNR0W, J, DAA (NNROW, J) 

235 F0RMAT(2I5,5X,E16.9) 

200 CONTINUE 

ELSE 

K1 = NBEG 
210 K2=Kl+5-l 

READ ( 1 , 20) VAL ( 1 ) , VAL ( 2) , VAL ( 3 ) , VAL (4) , VAL (5) 

C WRITE(*,20) VAL(l) , VAL(2) , VAL(3) ,VAL(4) ,VAL(5) 

K3=0 

DO 205 J=K1,K2 
K3=K3+1 

DAA (NNROW , J ) = VAL ( K3 ) 

IF(II.EQ.1)KAA(NNR0W, J)=DAA(NNROW,J) 
IF(II.EQ.2)MAA(NNR0W, J)=DAA(NNROW, J) 
IF(II.EQ.3)CAA(NNR0W,J)=DAA(NNR0W,J) 

C WRITE (2, 235) NNROW, J,DAA(NNROW t J) 

205 CONTINUE 

NUM ■= NUM - 5 
IF (NUM .GE. 5) THEN 
Kl=Kl+5 
GO TO 210 
ELSE 

IF (NUM .EQ. 0) GO TO 100 
READ ( 1 , 20) VAL (1 ) , VAL (2) , VAL (3) , VAL(4) , VAL (5) 

C WRITE(*,20)VAL(1) , VAL(2) , VAL(3) ,VAL(4) , VAL(5) 

K1=K2+1 
K2=K1+NUM-1 
K3 = 0 

DO 220 J=K1,K2 
K3 = K3 + 1 
OAA(NNROW, J)=VAL(K3) 

IF(II.EQ.1)KAA(NNR0W, J)=DAA(NNROW,J) 
IF(II.EQ.2)MAA(NNR0W,J)=DAA(NNR0W,J) 
IF(II.EQ.3)CAA(NNROW,J)=DAA(NNROW,J) 

C WR I TE (2, 235) NNROW, J, DAA (NNROW, J) 

220 CONTINUE 

ENDIF 
ENDIF 

100 CONTINUE 


C I F( I I . EQ . 3 ) GO TO 171 

READ(1,19)DUM 
READ(1, 19)DUM 
19 FORMAT (20A) 

99 CONTINUE 
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oor>ooooooooor>noooor>r*or>or>oor>r>oo 


RETURN 

END 


LZI 10 


SUBROUTINE LZIT(N, A, NA, B, NB, X, NX, WANTX, ITER, EIGA, 

* EIGB) 

THIS SUBROUTINE SOLVES THE GENERALIZED EIGENVALUE PROBLEM 
A X ■ LAMBDA B X 

WHERE A IS A COMPLEX UPPER HESSENBERG MATRIX OF 

ORDER N AND B IS A COMPLEX UPPER TRIANGULAR MATRIX OF ORDER N 

INPUT PARAMETERS 

N ORDER OF A AND B 

A AN N X N UPPER HESSENBERG COMPLEX MATRIX 

NA THE ROW DIMENSION OF THE A MATRIX 
B AN N X N UPPER TRIANGULAR COMPLEX MATRIX 
NB THE ROW DIMENSION OF THE B MATRIX 
X CONTAINS TRANSFORMATIONS TO OBTAIN EIGENVECTORS OF 

ORIGINAL SYSTEM. IF EIGENVECTORS ARE REQUESTED AND QZHES 
IS NOT CALLED, X SHOULD BE SET TO THE IDENTITY MATRIX 
NX THE ROW DIMENSION OF THE X MATRIX 
WANTX LOGICAL VARIABLE WHICH SHOULD BE SET TO .TRUE. 

IF EIGENVECTORS ARE WANTED. OTHERWISE IT 
SHOULD BE SET TO .FALSE. 


OUTPUT PARAMETERS 

X THE ITH COLUMN CONTAINS THE ITH EIGENVECTOR 
IF EIGENVECTORS ARE REQUESTED 
ITER AN INTEGER ARRAY OF LENGTH N WHOSE ITH ENTRY 

CONTAINS THE NUMBER OF ITERATIONS NEEDED TO FIND 
THE ITH EIGENVALUE. FOR ANY I IF ITER(I) *-l THEN 
AFTER 30 ITERATIONS THERE HAS NOT BEEN A SUFFICIENT 
DECREASE IN THE LAST SUBDIAGONAL ELEMENT OF A 


TO CONTINUE ITERATING. 

EIGA A COMPLEX ARRAY OF LENGTH N CONTAINING THE DIAGONAL OF A 

EIGB A COMPLEX ARRAY OF LENGTH N CONTAINING THE DIAGONAL OF B 

THE ITH EIGENVALUE CAN BE FOUND BY DIVIDING EIGA(I) BY 
EIGB (I). WATCH OUT FOR EIGB(I) BEING ZERO 

COMPLEX A(NA,N) , B(NB,N) , EIGA(N), EIGB(N) 

COMPLEX S, W, Y, Z, CSQRT 
COMPLEX X(NX,N) 

INTEGER ITER(N) 

COMPLEX ANNM1, ALFM, BETM, D, SL, DEN, NUM, ANM1M1 
REAL EPSA, EPSB, SS, R, ANORM, BNORM, ANI, BNI, C 
REAL DO, Dl. D2, EO, El 
LOGICAL WANTX 


C 


NN = N 

COMPUTETHE MACHINE PRECISION TIMES THE NORM OF A AND B 
ANORM = 0. 

BNORM = 0. 


10 


DO 30 1=1, N 
ANI = 0. 

IF (I.EQ.l) GO TO 10 
Y = A(I , 1-1) 

ANI = ANI + ABS(REAL(Y)) + ABS(AIMAG(Y)) 
BNI = 0. 


DO 20 J=I ,N , , 

ANI = ANI + ABS(REAL (A(I,J))) 
BNI = BNI + ABS(REAL(B(I,J)j) 


+ ABS(AIMAG(A(I, J))) 
+ ABS(AIMAG(B(I,J))) 


20 CONTINUE 

IF (ANI.GT. ANORM) ANORM = ANI 
IF (BN I. GT. BNORM) BNORM = BNI 
30 CONTINUE 
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IF (ANORM.EQ.O. ) ANORM =1.0 
IF (BNORM. EQ.O. ) BNORM = 1.0 
EPSB = BNORM 
EPSA = ANORM 
40 EPSA = EPSA/2.0 
EPSB = EPSB/2.0 
C = ANORM + EPSA 
IF (C.GT. ANORM) GO TO 40 
IF (N.LE.l) GO TO 320 
50 ITS = 0 
NM1 = NN - 1 

C CHECK FOR NEGLIGIBLE SUBDIAGONAL ELEMENTS 

60 D2 = ABS ( REAL ( A (NN , NN ) ) ) + ABS (AIMAG (A (NN, NN) ) ) 

DO 70 LB=2,NN 
L = NN + 2 - LB 
SS = 02 

Y = A(L-l.L-l) 

D2 = ABS(REAL(Y)) + ABS { AIMAG (Y)) 

SS = SS + D2 

Y = A(L.L-l) 

R = SS + ABS(REAL(Y)) + ABS (AIMAG (Y)) 

IF (R.EQ.SS) GO TO 80 
70 CONTINUE 
L = 1 

80 IF (L.EQ.NN) GO TO 320 
IF (ITS.LT.30) GO TO 90 
ITER(NN) = -1 

IF (ABS(REAL(A(NN,NM1)) )+ABS(AIMAG(A(NN,NMl))) .GT.0.8* 

* ABS (REAL ( ANNM1 ) ) +ABS (AIMAG (ANNM1 ) ) ) RETURN 
90 IF (ITS.EQ.10 .OR. ITS.EQ.20) GO TO 110 

C COMPUTE SHIFT AS EIGENVALUE OF LOWER 2 BY 2 
ANNM1 = A(NN.NMl) 

ANM1M1 = A(NM1,NM1) 

S = A(NN,NN)*B(NM1,NM1) - ANNM1*B(NM1,NN) 

W = ANNM1*B(NN,NN)*(A(NM1,NN)*B(NM1,NM1)-B(NM1,NN)*ANM1M1) 

Y = (ANMlMl*B(NN,NN)-S)/2. 

Z = CSQRT (Y*Y+W) 

IF (REAL(Z) .EQ.0.0 .AND. AIMAG(Z) .EQ.O.O) GO TO 100 
DO = REAL(Y/Z) 

IF (DO.LT.O.O) Z = -Z 
100 DEN = (Y+Z)*B(NM1,NM1)*B(NN,NN) 

IF (REAL(DEN). EQ.O.O .AND. AIMAG(DEN) .EQ.O.O) DEN = 

* CMPLX (EPSA, 0.0) 

NUM = (Y+Z)*S - W 
GO TO 120 

C AD-HOC SHIFT 

110 Y = A(NMl,NN-2) 

NUM = CMPLX (ABS (REAL ( ANNM1 ) ) +ABS (AIMAG ( ANNM1) ) , ABS (REAL ( Y) ) 

* +ABS (AIMAG (Y))) 

DEN = (1.0, 0.0) 

C CHECK FOR 2 CONSECUTIVE SMALL SUBDIAGONAL ELEMENTS 
120 IF (NN.EQ.L+1) GO TO 140 

D2 = ABS (REAL (A(NMl.NMl))) + ABS(AIMAG(A(NM1,NM1))) 

El = ABS (REAL (ANNM1)) + ABS (AIMAG (ANNM1)) 

D1 = ABS (REAL (A(NN,NN)>) + ABS (AIMAG ( A (NN , NN) ) ) 

NL »= NN - (L+l) 

DO 130 MB=1,NL 
M = NN - MB 
EO = El 

Y = A(M,M-1) 
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El = ABS (REAL ( Y) ) + ABS ( AIMAG ( Y) ) 

DO = D1 
D1 « D2 

Y = A(M-l.M-l) 

D2 = ABS(REAL(Y)) + ABS (AIMAG (Y)) 

Y = A(M,M)*DEN - B(M,M)*NUM 

DO = (D0+D1+D2)* (ABS (REAL (Y) ) +ABS (AIMAG (Y))) 

EO = EO*El* (ABS (REAL (DEN) )+ABS (AIMAG(DEN) ) ) + DO 
IF (EO.EQ.DO) GO TO 150 
130 CONTINUE 
140 M * L 
150 CONTINUE 

ITS = ITS + 1 

W = A(M,M)*DEN - B(M,M)*NUM 
Z »= A(M+1,M)*DEN 

D1 = ABS (REAL (Z)) + ABS (AIMAG (Z) ) 

02 = ABS(REAL(W)) + ABS (AIMAG (W)) 

C FIND L AND M AND SET A=LAM AND B=LBM 
C NP1 = N + 1 
LORI ■= L 
NNORN = NN 

IF (.NOT.WANTX) GO TO 160 
LORI «= 1 
NNORN - N 
160 DO 310 I*M,NM1 
J = I + 1 

C FIND ROW TRANSFORMATIONS TO RESTORE A TO 
C UPPER HESSENBERG FORM. APPLY TRANSFORMATIONS 
C TO A ANO B 

IF (I.EQ.M) GO TO 170 
W « A( I , I— 1) 

Z - A(J,I-1) 

D1 - ABS (REAL (Z)) + ABS (AIMAG (Z)) 

D2 «= ABS ( REAL (W)) + ABS ( AIMAG (W)) 

IF (Dl.EQ.O.O) GO TO 60 
170 IF (D2.GT.D1) GO TO 190 
C MUST INTERCHANGE ROWS 
DO 180 K* I, NNORN 

Y - A(I,K) 

A ( I , K) = A(J,K) 

A(J,K) « Y 

Y * B(I.K) 

B(I.K) = B(J,K) 

B(J,K) * Y 

180 CONTINUE 

IF (I.GT.M) A(I.I-l) = A(J, 1-1) 

IF (D2.EQ.0.0) GO TO 220 

C THE SCALING OF W AND Z IS DESIGNED TO AVOID A DIVISION BY ZERO 
C WHEN THE DENOMINATOR IS SMALL 

Y = CMPLX(REAL(W) /Dl, AIMAG (W)/D1)/CMPLX (REAL (Z)/D1 , AIMAG (Z) / 

* Dl) 

GO TO 200 

190 Y = CMPLX (REAL (Z) /D2 , AIMAG (Z ) /D2) /CMPLX (REAL (W) /D2 , AIMAG ( W) / 

* D2) 

200 DO 210 K= I, NNORN 

A(J,K) = A(J,K) - Y*A(I,K) 

B(J,K) = B(J,K) - Y*B(I,K) 

210 CONTINUE 

220 IF (I.GT.M) A(J, 1-1) * (0.0, 0.0) 

C PERFORM TRANSFORMATIONS FROM RIGHT TO RESTORE B TO 
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C TRIANGLULAR FORM 
C APPLY TRANSFORMATIONS TO A 
Z = B(J.I) 

W = B(J, J) 

D2 = ABS(REAL(W)) + ABS(AIMAG(W)) 

D1 = ABS(REAL(Z)) + ABS {AIMAG (Z ) ) 

IF (Dl.EQ.O.O) GO TO 60 
IF (D2.GT.D1) GO TO 270 
C MUST INTERCHANGE COLUMNS 
DO 230 K=L0R1 , J 

Y = A(K, J) 

A(K,J) = A(K, I) 

A(K, I) * Y 

Y = B(K, J) 

B(K,J) - B(K, I) 

B(K.I) = Y 

230 CONTINUE 

IF (I.EQ.NM1) GO TO 240 
Y = A(J+1, J) 

A(J+1,J) = A (J+l , I) 

A(J+1, I) = Y 

240 IF (.NOT.WANTX) GO TO 260 
DO 250 K=1,N 

Y = X(K, J) 

X(K,J) = X(K, I) 

X(K.I) = Y 

250 CONTINUE 

260 IF (D2.EQ.0.0) GO TO 310 

Z = CMPLX (REAL (W) /D1 .AIMAG (W) /D1 ) /CMPLX (REAL(Z) /D1 , AIMAG (Z) / 

* Dl) 

GO TO 280 

270 Z = CMPLX (REAL (Z) /D2, AIMAG (Z) /D2) / CMPLX (REAL (W) /D2 , AIMAG (W) / 

* D2) 

280 DO 290 K=L0R1 , J 

A(K,I) = A(K,I) - Z*A(K, J) 

B(K, I) = B(K, I) - Z*B(K, J) 

290 CONTINUE 

B(J,I) = (0.0, 0.0) 

IF (I.LT.NM1) A(I+2, I) = A(I+2,I) - Z*A(I+2,J) 

IF (.NOT.WANTX) GO TO 310 
DO 300 K=1,N 

X(K, I) = X(K,I) - Z*X(K, J) 

300 CONTINUE 
310 CONTINUE 
GO TO 60 
320 CONTINUE 

EIGA(NN) = A(NN,NN) 

EIGB(NN) = B(NN.NN) 

IF (NN.EQ.l) GO TO 330 
ITER(NN) = ITS 
NN = NM1 

IF (NN.GT.l) GO TO 50 
ITER ( 1 ) = 0 
GO TO 320 

C FIND EIGENVECTORS USING B FOR INTERMEDIATE STORAGE 
330 IF (.NOT.WANTX) RETURN 
H = N 

340 CONTINUE 

ALFM = A(M,M) 

BETM = B(M,M) 
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B(M.M) = (1.0, 0.0) 

L = M - 1 

IF (L.EQ.O) GO TO 370 
350 CONTINUE 
LI = L + 1 
SL = (0.0, 0.0) 

DO 360 J*L1,M 

SL = SL + (BETM*A(L, J)-ALFM*B(L, J))*B(J,M) 
360 CONTINUE 

Y - BETM*A(L,L) - ALFM*B(L,L) 

IF (REAL(Y) .EQ.0.0 .AND. AIMAG(Y) .EQ.O.O) Y = 
* CMPLX ( (EPSA+EPSB) /2 . 0 , 0 . 0) 

B(L,M) = -SL/Y 
L = L - 1 

370 IF (L.GT.O) GO TO 350 
M = M - 1 

IF (H.GT.O) GO TO 340 
C TRANSFORM TO ORIGINAL COORDINATE SYSTEM 
M = N 

380 CONTINUE 
DO 400 1*1, N 
S = (0.0, 0.0) 

DO 390 J-l.M 
S = S + X(I,J)*B(J,M) 

390 CONTINUE 
X(I,M) = S 
400 CONTINUE 
M * M - 1 

IF (M.GT.O) GO TO 380 

C NORMALIZE SO THAT LARGEST COMPONENT = 1. 

M = N 

410 CONTINUE 
SS = 0. 

DO 420 1*1, N 

R * ABS(REAL(X(I,M))) + ABS(AIMAG(X(I,M))) 
IF (R.LT.SS) GO TO 420 
SS = R 
D - X(I,M) 


420 

CONTINUE 



IF (SS.EQ.I 

3.0) GO TO 440 


DO 430 1=1 

»N 


X(I,M) * 

X(I,M)/D 

430 

CONTINUE 


440 

M = M - 1 



IF (M.GT.O) GO TO 410 

RETURN 

END 


SUBROUTINE LZHES(N, A, NA, B, NB, X, NX, WANTX) LZH 10 

C THIS SUBROUTINE REDUCES THE COMPLEX MATRIX A TO UPPER 
C HESSENBERG FORM AND REDUCES THE COMPLEX MATRIX B TO 
C TRIANGULAR FORM 
C INPUT PARAMETERS.. 

C N THE ORDER OF THE A AND B MATRICES 
C A A COMPLEX MATRIX 
C NA THE ROW DIMENSION OF THE A MATRIX 
C B A COMPLEX MATRIX 
C NB THE ROW DIMENSION OF THE B MATRIX 
C NX THE ROW DIMENSION OF THE X MATRIX 
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C WANTX A LOGICAL VARIABLE WHICH IS SET TO .TRUE. IF 
C THE EIGENVECTORS ARE WANTED. OTHERWISE IT SHOULD 

C BE SET TO .FALSE. 

C OUTPUT PARAMETERS.. 

C A ON OUTPUT A IS AN UPPER HESSENBERG MATRIX, THE 
C ORIGINAL MATRIX HAS BEEN DESTROYED 
C B AN UPPER TRIANGULAR MATRIX, THE ORIGINAL MATRIX 
C HAS BEEN DESTROYED 

C X CONTAINS THE TRANSFORMATIONS NEEDED TO COMPUTE 
C THE EIGENVECTORS OF THE ORIGINAL SYSTEM 

COMPLEX Y, W, Z, A(NA,N) , B(NB,N), X(NX,N) 

REAL C , D 
LOGICAL WANTX 
NM1 = N - 1 

C REDUCE B TO TRIANGULAR FORM USING ELEMENTARY 
C TRANSFORMATIONS 
DO 80 1=1, NM1 
D = 0.00 


IP1 = I + 1 


10 


C MUST 


20 


30 

40 


50 


DO 10 K=IP1,N 
Y = B(K, I) 

C = ABS(REAL(Y)) + ABS (AIMAG(Y)) 
IF (C.LE.D) GO TO 10 
D = C 
II = K 
CONTINUE 


IF (D.EQ.O.O) GO TO 80 
Y - B(I, I) 

IF (D. LE. ABS (REAL (Y))+ABS(AIMAG(Y))) GO TO 40 
INTERCHANGE 
DO 20 J=1,N 

Y » A(I,J) 

A(I,J) = A(II,J) 

A(II, J) = Y 

CONTINUE 
DO 30 J=I,N 

Y « B(I,J) 

B(I,J) = B(II, J) 

B ( I I , J) = Y 

CONTINUE 
DO 70 J=IP1,N 

Y = B(J, I)/B(I, I) 

IF (REAL(Y) .EQ.0.0 .AND. AIMAG(Y) .EQ.O.O) GO TO 70 
DO 50 K=1,N 

A(J, K) = A(J,K) - Y*A(I,K) 

CONTINUE 


DO 60 K=IP1,N 
B(J,K) = B(J, K) - Y*B(I, K) 
60 CONTINUE 
70 CONTINUE 

B(IP1 , I) = (0.0, 0.0) 

80 CONTINUE 
C INITIALIZE X 

IF (.NOT. WANTX) GO TO 110 
DO 100 1=1, N 
DO 90 J=1,N 
X(I,J) = (0.0, 0.0) 

90 CONTINUE 

X(I,I) = (1.0,0.00) 

100 CONTINUE 


- 233 - 



C REDUCE A TO UPPER HESSENBERG FORM 
110 NM2 = N - 2 

IF (NM2.LT. 1) GO TO 270 
DO 260 J=1,NM2 
JM2 * NM1 - J 
JP1 = J + 1 
DO 250 11=1, JM2 
1 ■ H + 1 - II 
IM1 = I - 1 
IMJ = I - J 
W = A(I,J) 

I F* ( ABS(REAL (W) ) +ABS (AIMAG (W) ) . LE . AB5 (REAL (Z) ) 

* +ABS (AIMAG (Z))) GO TO 140 
C MUST INTERCHANGE ROWS 
DO 120 K=J,N 

Y = A(I,K) 

A(I,K) = A(IM1,K) 

A(IMl.K) * Y 

CONTINUE 
DO 130 K=IM1,N 

Y = B(I.K) 

B(I,K) = B(IM1,K) 

B(IM1,K) = Y 

CONTINUE 

IF B (REAL(Z).EQ.0.0 .AND. AIMAG(Z) .EQ.O.O) GO TO 170 
Y = Z/A(IM1,J) 

DO 150 K=JP1,N 

A(I,K) = A(I.K) - Y*A(IM1,K) 

CONTINUE 
DO 160 K=IM1,N 

B(I.K) « B(I.K) - Y*B(IM1,K) 

, uv CONTINUE 

TRANSFORMATION FROM THE RIGHT 
170 W = B(I.IMl) 

1 * ' C .ABS(REAL(Z)) 


120 


130 

140 


150 


160 


IF ( ABS (REAL (W) ) +ABS (AIMAG (W) ) . LE . / 

+ABS(AIMAG(Z))) GO TO 210 
MUST INTERCHANGE COLUMNS 
DO 180 K-l.I 

Y = B(K.I) 

B(K,I) = B(K.IHl) 

B(K.IMl) = Y 

180 CONTINUE 

DO 190 K=1,N 

Y = A(K,I) 

A(K, I) = A(K.IMl) 

A(K, IM1) = Y 
190 CONTINUE 

IF (.NOT.WANTX) GO TO 210 

DO 200 K=1MJ,N 

Y = X(K, I) 

X(K, I) = X(K.IMl) 

X(K.IMl) = Y 
200 CONTINUE 

210 IF*(REAI(2)!eQ.0.0 .AMD. AIMAG(Z).EQ.O.O) 60 TO 250 

Y = Z/B(I, I) 

DO 220 K=1,IM1 
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o o r> rj r> o r> o o o o o o o o o o o o o o o o o o r> o o r> o r*> rs o r> 



B(K,IM1) 

■= B(K, IM1) 

- Y*B(K, I) 

220 

CONTINUE 




B(I,IM1) = 

(0.0, 0.0) 



DO 230 K=1 , 

|N 



A(K, IM1) 

= A(K, IMl) 

- Y*A(K, I) 

230 

CONTINUE 




IF (.N0T.WANTX) GO TO 

250 


DO 240 K=IMJ,N 



X(K, IM1) 

= X(K, IMl) 

- Y*X(K, I) 

240 

CONTINUE 



250 

CONTINUE 




A(JP1+1 , J) = 

(0.0, 0.0) 


260 

CONTINUE 



270 

RETURN 




END 




HES 10 

HES 20 

HES 30 

SUBROUTINE CQZHES(NM,N,AR,AI,BR,BI,MATZ,ZR.ZI) HES 40 

INTEGER I, J, K, L,N,K1 ,LB, L1,NM,NK1 ,NM1 

REAL AR(NM,N) , AI (NM,N) ,BR(NM,N) ,BI(NM,N) ,ZR(NM,N) ,ZI(NM,N) 

REAL AR (500 , 500) , AI (500 , 500) , BR (500 , 500) , BI (500,500) 

REAL ZR (500, 500), ZI (500, 500) 

REAL R,S,T,TI ,U1,U2,XI,XR, YI , YR,RH0,U1I 
REAL SQRT.CABS.ABS 
LOGICAL MATZ 
COMPLEX CMPLX 

THIS SUBROUTINE IS A COMPLEX ANALOGUE OF THE FIRST STEP OF THE 
QZ ALGORITHM FOR SOLVING GENERALIZED MATRIX EIGENVALUE PROBLEMS, 

SIAM J. NUMER. ANAL. 10, 241-256(1973) BY HOLER AND STEWART. 

THIS SUBROUTINE ACCEPTS A PAIR OF COMPLEX GENERAL MATRICES AND 
REDUCES ONE OF THEM TO UPPER HESSENBERG FORM WITH REAL (AND NON- 
NEGATIVE) SUBDIAGONAL ELEMENTS AND THE OTHER TO UPPER TRIANGULAR 
FORM USING UNITARY TRANSFORMATIONS. IT IS USUALLY FOLLOWED BY 
CQZVAL AND POSSIBLY CQZVEC. 

ON INPUT- 

NM MUST BE SET TO THE ROW DIMENSION OF TWO-DIMENSIONAL 
ARRAY PARAMETERS AS DECLARED IN THE CALLING PROGRAM 
DIMENSION STATEMENT, 

N IS THE ORDER OF THE MATRICES, 

A=(AR, AI) CONTAINS A COMPLEX GENERAL MATRIX. 

B=(BR,BI) CONTAINS A COMPLEX GENERAL MATRIX, 

MATZ SHOULD BE SET TO .TRUE. IF THE RIGHT HAND TRANSFORMATIONS 
ARE TO BE ACCUMULATED FOR LATER USE IN COMPUTING 
EIGENVECTORS, AND TO .FALSE. OTHERWISE. 

ON 0UTPUT- 
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ooooooooooooooooo 


A HAS BEEN REDUCED TO UPPER HESSENBERG FORM. THE ELEMENTS 
BELOW THE FIRST SUBDIAGONAL HAVE BEEN SET TO ZERO, AND THE 
SUBDIAGONAL ELEMENTS HAVE BEEN MADE REAL (AND NON-NEGATIVE) 


B HAS BEEN REDUCED TO UPPER TRIANGULAR FORM. THE ELEMENTS 
BELOW THE MAIN DIAGONAL HAVE BEEN SET TO ZERO, 


Z=(ZR,ZI) CONTAINS THE PRODUCT OF THE RI6HT HAND 
TRANSFORMATIONS IF MATZ HAS BEEN SET TO .TRUE. 
OTHERWISE, Z IS NOT REFERENCED. 


QUESTIONS AND COMMENTS SHOULD 
APPLIED MATHEMATICS DIVISION, 


BE DIRECTED TO B. S. GARBOW, 
ARGONNE NATIONAL LABORATORY 


C 

c 


c 


c 

c 


c 


c 


c 


c 


c 


********** initialize z ********** 

IF (.NOT. MATZ) GO TO 10 

DO 3 I * 1, N 

DO 2 J = 1, N 
ZR(I,J) * 0.0 
ZI(I,J) = 0.0 

2 CONTINUE 

ZR (1,1) = 1.0 

3 CONTINUE 

********** REDUCE B TO UPPER TRIANGULAR FORM WITH 

TEMPORARILY REAL DIAGONAL ELEMENTS ********** 
10 IF (N .LE. 1) GO TO 170 
NM1 = N - 1 


DO 100 L * 1, NM1 
LI * L + 1 
S = 0.0 


DO 20 I * L, N , 

S = S + ABS(BR(I,L)) + ABS(BI(I,L)) 

20 CONTINUE 

IF (S .EQ. 0.0) GO TO 100 
RHO = 0.0 


25 


DO 25 I * L, N 

BR(I,L) * BR(I.L) / S 
BI(l.L) = BI(I.L) / S 
RHO = RHO + BR(I,L)**2 
CONTINUE 


+ BI(I,L)**2 


R = SQRT(RHO) % , ... 

XR = CABS(CMPLX(BR(L,L) ,BI(L,L))) 
IF (XR .EQ. 0.0) GO TO 27 
RHO = RHO + XR * R 


U1 *= -BR(L,L) / XR 
U1I * -BI(L,L) / XR 
YR = R / XR + 1.0 
BR(L,L) * YR * BR L.L) 
BI(L,L) = YR * BI(L.L) 


GO TO 28 
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c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


27 BR(L,L) = R 
U1 = -1.0 
U1I = 0.0 

28 DO 50 J = LI, N 

T = 0.0 

TI = 0.0 

DO 30 I = L, N 

T = T + BR(I,L) * BR(I,J) + BI(I,L) * BI(I,J) 

TI = TI + BR(I,L) * BI(I. J) - BI(I,L) * BR(I.J) 
30 CONTINUE 

T = T / RHO 
TI = TI / RHO 

DO 40 I = L. N 

BR(I , J) = BR(I,J) - T * BR(I.L) + TI * BI(I,L) 
BI(I.J) = BI(I.J) - T * BI(I.L) - TI * BR(I,L) 
40 CONTINUE 

XI = U1 * BI(L.J) - U1I * BR(L,J) 

BR(L,J) = U1 * BR(L,J) + U1I * BI(L.J) 

BI(L,J) = XI 
50 CONTINUE 

DO 80 J = 1, N 
T « 0.0 
TI = 0.0 

DO 60 I = L, N 

T = T + BR(I,L) * AR(I.J) + BI(I.l) * AI(I.J) 

TI = TI + BR(I.L) * AI(I, J) - BI(I.L) * AR(I,J) 
60 CONTINUE 

T = T / RHO 
TI = TI / RHO 

DO 70 I = L, N 

AR(I.J) = AR(I, J) - T * BR(I.L) + TI * BI(I.L) 
AI (I , J) = AI(I.J) - T * BI(I.L) - TI * BR(I.L) 
70 CONTINUE 

XI = U1 * AI(L.J) - U1I * AR(L,J) 

AR(L, J) = U1 * AR(L.J) + U1I * AI(L.J) 

AI(L, J) = XI 
80 CONTINUE 

BR(L,L) = R * S 
BI (L. L) = 0.0 

DO 90 I = LI, N 
BR(I,L) = 0.0 
BI ( I , L) = 0.0 
90 CONTINUE 


100 CONTINUE 

********** REDUCE A TO UPPER HESSENBERG 


FORM WITH REAL SUBDIAGONAL 


ELEMENTS, WHILE KEEPING B TRIANGULAR ********** 
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DO 160 K = 1, NM1 
K1 = K + 1 

********** SET BOTTOM ELEMENT IN K-TH COLUMN OF A REAL ********** 
IF (AI(N,K) .EQ. 0.0) GO TO 105 
R = CABS (CMPLX(AR(N, K) , AI (N, K) ) ) 

U1 = AR(N,K) / R 
U1I = AI(N,K) / R 
AR(N,K) = R 
AI (N, K) = 0.0 

DO 103 J * Kl, N 

XI = U1 * AI (N, J) - U1I * AR(N,J) 

AR(N, J) * U1 * AR(N, J) + U1I * AI(N,J) 

AI(N, J) = XI 
103 CONTINUE 


C 


C 


C 


C 


105 


XI * U1 * BI(N,N) - Ull * BR(N.N) 

BR(N,N) = U1 * BR(N,N) + Ull * BI(N.N) 

BI(N,N) «= XI 

IF (K .EQ. NM1) GO TO 170 
NK1 * NM1 - K 

********** por l=N- 1 STEP -1 UNTIL K+l DO — ********** 
DO 150 LB *= 1, NK1 
L *= N - LB 
LI = L + 1 

********** 2ER0 A(L+1,K) ********** 

S = ABS(AR(L,K)) + ABS(AI(L.K)) + AR(Ll.K) 

IF (S .EQ. 0.0) GO TO 150 

U1 * AR(L,K) / S 

Ull - AI(L,K) / S 

U2 = AR(L1,K) / S 

R = SQRT(U1*U1+U1I*U1I+U2*U2) 

U1 B U1 / R 
Ull = Ull / R 
U2 ■= U2 / R 
AR(L,K) = R * S 
AI(L,K) ■= 0.0 
AR(L1,K) = 0.0 


DO 110 J * Kl, N 
XR * AR(L, J) 

XI = AI(L.J) 

YR = AR(L1, J) 

YI * AI(Ll.J) 

AR(L, J) ■= U1 * XR + Ull * XI + U2 * YR 
AI (L, J) = U1 * XI - Ull * XR + U2 * YI 
AR(L1,J) = U1 * YR - Ull * YI - U2 * XR 
AI (LI 1 J) * U1 * YI + Ull * YR - U2 * XI 
110 CONTINUE 


XR = BR(L,L) 

BR(L,L) = U1 * XR 
BI(L,L) = -Ull * XR 
BR(Ll.L) = -U2 * XR 


C 

DO 120 J * LI, N 
XR * BR(L, J) 
XI = BI(L.J) 
YR * BR L1,J) 
YI = BI(L1,J) 
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BR(L,J) = U1 * XR + U1I * XI + U2 * YR 
BI(L.J) = Ul * XI - U1I * XR + U2 * YI 
BR(L1,J) = U1 * YR - U1I * YI - U2 * XR 
BI(L1,J) = Ul * YI 4 U1I * YR - U2 * XI 
120 CONTINUE 

C ********** 2ER0 B(L+1,L) ********** 

S ■= ABS(BR(ll , LI) ) + ABS(BI(L1,L1)) + ABS(BR(L1,L)) 

IF (S .EQ. 0.0) GO TO 150 

U1 = BR (LI , LI) / S 

U1I = BI(L1,L1) / S 

U2 = BR(L1,L) / S 

R = SQRT (U1*U1+U1I*U1I+U2*U2) 

Ul = Ul / R 
U1I = U1I / R 
U2 = U2 / R 
BR (LI t LI ) = R * S 
BI(Ll.Ll) = 0.0 
BR(L1,L) = 0.0 
C 

DO 130 I = 1, L 
XR = BR(I , LI) 

XI = BI(I, LI) 

YR * BR(I,L) 

YI = BI(I,L) 

BR(I,L1) = U1 * XR + U1I * XI + U2 * YR 

BKI.L1) * U1 * XI - U1I * XR + U2 * YI 

BR(I,L) >= Ul * YR - U1I * YI - U2 * XR 

BI(I.L) = U1 * YI + U1I * YR - U2 * XI 

130 CONTINUE 

C 

DO 140 I - 1, N 
XR = AR(I.Ll) 

XI * AI(I,L1) 

YR * AR(I.L) 

YI * AI(I.L) 

AR(I.Ll) * U1 * XR + U1I * XI + U2 * YR 

AI(I, LI) ■ Ul * XI - U1I * XR + U2 * YI 

AR(I,L) = Ul * YR - U1I * YI - U2 * XR 

AI(I,L) * Ul * YI + U1I * YR - U2 * XI 

140 CONTINUE 

C 

IF (.NOT. MATZ) GO TO 150 
C 

DO 145 I * 1, N 
XR = ZR(I,L1) 

XI = ZI(I,L1) 

YR = ZR(I,L) 

YI * ZI(I.L) 

ZR ( I , LI ) * Ul * XR + U1I * XI + U2 * YR 

Z I ( I , LI ) = Ul * XI - U1I * XR 4 U2 * YI 

ZR(I , L) * Ul * YR - U1I * YI - U2 * XR 

ZI(I.L) = Ul * YI 4 U1I * YR - U2 * XI 

145 CONTINUE 

C 

150 CONTINUE 
C 

160 CONTINUE 
C 

170 RETURN 

C ********** last CARD OF CQZHES ********** 
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C 

C 

C 


END 


C 


SUBROUTINE CQZVAL (NM,N,AR,AI,BR,BI, 
X 


EPS1 , ALFR , ALFI , BETA , 
MATZ.ZR.ZI.IERR) 


VAL 

•VAL 

VAL 

VAL 


10 

20 

30 

40 


INTEGER I , J , K , L , N , EN , K1 , K2 , LL , Ll , NA, NM, ITS , KM1 , LM1 , 

X ENM2 , 1 ERR, LORI , ENORN v 

REAL AR (NM , N ) , AI (NM , N) , BR (NM , N) , BI (NM , N) . ALFR (N) , ALFI (N) , 

X BETA(N) ,ZR(NM,N) ,ZI(NM,N) 

REAL R,S,Al,A2,EP,SH t Ul,U2,XI ( XR,YI,YR,ANI, 

*ait aoi aq 4 £43 A44 

X ' BNI,B11,B33,B44,SHI,U1I,A33I,A34I,A43I ,A44I,B33I,B44I, 

X EPSA . EPSB , EPS1 , ANORM , BNORM , B3344 . B3344 I 


REAL SQRT.CABS.ABS 
INTEGER MAXO 
LOGICAL MATZ 
COMPLEX Z3 
COMPLEX CSQRT , CMPLX 
REAL REAL.AIMAG 


THIS SUBROUTINE IS A COMPLEX ANALOGUE OF STEPS 2 AND 3 OF THE 
QZ ALGORITHM FOR SOLVING GENERALIZED MATRIX EIGENVALUE PROBLEMS, 
SIaST kUHER. ANAL. 10, 241-256(1973) BY HOLE# AND STEVOTT. 

AS MODIFIED IN TECHNICAL NOTE NASA TN E-7305(1973) BY WARD. 

THIS SUBROUTINE ACCEPTS A PAIR OF COMPLEX MATRICES, ONE OF THEM 
IN UPPER HESSENBERG FORM AND THE OTHER IN UPPER TRIANGULAR FORM, 
THE HESSENBERG MATRIX MUST FURTHER HAVE REAL SUBDIAGONAL ELEMENTS. 
IT REDUCES THE HESSENBERG MATRIX TO TRIANGULAR FORM USING 
UNITARY TRANSFORMATIONS WHILE MAINTAINING THE TRIANGUWR FORM 

AF the other matrix and further making its diagonal elements 

R E AL AND NoS -WEGAT 1 VE IT THEN RETURNS QUANTITIES WHOSE RATIOS 
GIVE THE GENERALIZED EIGENVALUES. IT IS USUALLY PRECEDED BY 
CQZHES AND POSSIBLY FOLLOWED BY CQZVEC. 

ON INPUT- 

NM MUST BE SET TO THE ROW DIMENSION OF TWO-DIMENSIONAL 
ARRAY PARAMETERS AS DECLARED IN THE CALLING PROGRAM 
DIMENSION STATEMENT, 

N IS THE ORDER OF THE MATRICES, 

A*(AR AI) CONTAINS A COMPLEX UPPER HESSENBERG MATRIX 
WITH REAL SUBDIAGONAL ELEMENTS, 

B=(BR,BI) CONTAINS A COMPLEX UPPER TRIANGULAR MATRIX, 

cpci tc i TOLERANCE USED TO DETERMINE NEGLIGIBLE ELEMENTS. 

E lpsi - 0.0 (OR NEGATIVE) MAY BE INPUT, IN WHICH CASE AN 
ELEMENT WILL BE NEGLECTED ONLY IF IT IS LESS THAN ROUNDOFF 
FRROR TIMES THE NORM OF ITS MATRIX. IF THE INPUT EPS1 IS 
POSITIVE THEN AN ELEMENT WILL BE CONSIDERED NEGLIGIBLE 
IF IT IS* LESS THAN EPS1 TIMES THE NORM OF ITS MATRIX. A 
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POSITIVE VALUE OF EPS1 MAY RESULT IN FASTER EXECUTION, 

BUT LESS ACCURATE RESULTS, 

MATZ SHOULD BE SET TO .TRUE. IF THE RIGHT HAND TRANSFORMATIONS 
ARE TO BE ACCUMULATED FOR LATER USE IN COMPUTING 
EIGENVECTORS, AND TO .FALSE. OTHERWISE, 

Z=(ZR,ZI) CONTAINS, IF MATZ HAS BEEN SET TO .TRUE., THE 
TRANSFORMATION MATRIX PRODUCED IN THE REDUCTION 
BY CQZHES, IF PERFORMED, OR ELSE THE IDENTITY MATRIX. 

IF MATZ HAS BEEN SET TO .FALSE., Z IS NOT REFERENCED. 

ON OUTPUT- 

A HAS BEEN REDUCED TO UPPER TRIANGULAR FORM. THE ELEMENTS 
BELOW THE MAIN DIAGONAL HAVE BEEN SET TO ZERO, 

B IS STILL IN UPPER TRIANGULAR FORM, ALTHOUGH ITS ELEMENTS 
HAVE BEEN ALTERED. IN PARTICULAR, ITS DIAGONAL HAS BEEN SET 
REAL AND NON-NEGATIVE. THE LOCATION BR(N.l) IS USED TO 
STORE EPS1 TIMES THE NORM OF B FOR LATER USE BY CQZVEC, 

ALFR AND ALFI CONTAIN THE REAL AND IMAGINARY PARTS OF THE 
DIAGONAL ELEMENTS OF THE TRIANGULARIZED A MATRIX, 

BETA CONTAINS THE REAL NON-NEGATIVE DIAGONAL ELEMENTS OF THE 
CORRESPONDING B. THE GENERALIZED EIGENVALUES ARE THEN 
THE RATIOS ( (ALFR+I*ALFI) /BETA) , 

Z CONTAINS THE PRODUCT OF THE RIGHT HAND TRANSFORMATIONS 
(FOR BOTH STEPS) IF MATZ HAS BEEN SET TO .TRUE. , 

I ERR IS SET TO 

ZERO FOR NORMAL RETURN, 

J IF AR(J.J-l) HAS NOT BECOME 

ZERO AFTER 50 ITERATIONS. 

QUESTIONS AND COMMENTS SHOULD BE DIRECTED TO B. S. GARBOW, 

APPLIED MATHEMATICS DIVISION, ARGONNE NATIONAL LABORATORY 


I ERR = 0 

c ********** COMPUTE EPSA.EPSB ********** 

ANORM = 0.0 
6N0RM = 0.0 
C 

DO 30 I = 1, N 
ANI =0.0 

IF (I -NE. 1) ANI = ABS(AR(I,I-1)) 

BN I = 0.0 
C 

DO 20 J = I, N 

ANI = ANI + ABS(AR(I, J) ) + ABS(AI I.J ) 

BN I = BN I + ABS(BR(I,J)) + ABS(BI(I, J)) 

20 CONTINUE 
C 

IF (ANI .GT. ANORM) ANORM = ANI 

IF (BNI .GT. BNORM) BNORM = BN I 

30 CONTINUE 
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c 

IF (ANORM .EQ. O.O) ANORM =1.0 
IF (BNORM .EQ. 0.0) BNORH =1.0 
EP = EPS1 

IF (EP .GT. 0.0) GO TO 50 

C ********** COMPUTE ROUNDOFF LEVEL IF EPS1 IS ZERO ********** 
EP = 1.0 

40 EP = EP / 2.0 

IF (1.0 + EP .GT. 1.0) GO TO 40 
50 EPSA = EP * ANORM 
EPSB = EP * BNORM 

C ********** REDUCE A TO TRIANGULAR FORM, WHILE 
C KEEPING B TRIANGULAR ********** 

LORI = 1 
ENORN = N 
EN * N 

C ********** BEGIN QZ STEP ********** 

60 IF (EN .EQ. 0) GO TO 1001 
IF (.NOT. MATZ) ENORN = EN 
ITS = 0 
NA = EN - 1 
ENM2 = NA - 1 

C ********** CHECK FOR CONVERGENCE OR REOUCIBILITY. 

C FOR L=EN STEP -1 UNTIL 1 DO — ********** 

70 DO 80 LL = 1, EN 
LM1 « EN - LL 
L * LM1 + 1 

IF (L .EQ. 1) GO TO 95 
IF (ABS(AR(L,LM1)) .LE. EPSA) GO TO 90 
80 CONTINUE 
C 

90 AR(L,LM1) =0.0 

c ********** set DIAGONAL ELEMENT AT TOP OF B REAL ********** 
95 Bll = CABS(CMPLX(BR(L,L),BI(L,L))) 


IF (Bll 

EQ. 0.0) GO TO 98 

U1 = BR(L.L) 

/ Bll 


U1I = BI(L.L) 

/ Bll 


DO 97 J = L, 

ENORN 

* AR(L.J) 

XI = U1 * 

AI(L,J) - U1I 

AR(L,J) = 

U1 * AR(L.J) 

+ U1I * AI(L,J) 

AI(L,J) = 

XI 

* BR(L,J) 

XI = U1 * 

BI(L,J) - U1I 

BR(L, J) = 

U1 * BR(L.J) 

+ U1I * BI(L.J) 

BI(L,J) = 

XI 



97 CONTINUE 


C 

BI(L,L) = 0.0 

98 IF (L .NE. EN) GO TO 100 
c ********** i-BY-1 BLOCK ISOLATED ********** 
ALFR(EN) = AR(EN.EN) 

ALFI(EN) = AI(EN.EN) 

BETA(EN) = Bll 
EN = NA 
GO TO 60 

c ********** CHECK FOR SMALL TOP OF B ********** 
100 LI = L + 1 

IF (Bll .GT. EPSB) GO TO 120 
S R = L ABS(AR(UD) + ABS (AI(L,L)) + ABS(AR(L1.L)) 
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U1 = AR(L, L) / S 

U1I = AI (L, L) / S 

U2 = AR(Ll.L) / S 

R = SQRT (U1*U1+U1 I*U1 I+U2*U2) 

U1 = U1 / R 
U1I = U1I / R 
U2 = U2 / R 
AR(L, L) = R * S 
AI (L, L) = 0.0 
C 

DO 110 J = LI, ENORN 
XR = AR(L, J) 

XI = AI (L, J) 

YR = AR(Ll.J) 

YI = AI (LI, J) 

AR(l.J) = U1 * XR + U1I * XI + U2 * YR 

AI(L, J) ■ Ul * XI - U1I * XR + U2 * YI 

AR(Ll.J) = U1 * YR - U1I * YI - U2 * XR 
AI(L1, J) = U1 * YI + U1I * YR - U2 * XI 
XR = BR(L, J) 

XI = BI(L,J) 

YR = BR(L1 , J) 

YI = BI(L1, J) 

BR(L1 , J) = U1 * YR - U1I * YI - U2 * XR 
BR(L, J) = U1 * XR + U1I * XI + U2 * YR 

BI(L, J) > U1 * XI - U1I * XR + U2 * YI 

BI(ll,J) = U1 * YI + U1I * YR - U2 * XI 
110 CONTINUE 
C 

LM1 = L 
L = LI 
GO TO 90 

C ********** ITERATION STRATEGY ********** 

120 IF (ITS .EQ. 50) GO TO 1000 
IF (ITS .EQ. 10) GO TO 135 
C ********** DETERMINE SHIFT ********** 

B33 * 8R(NA,NA) 

B33I = BI(NA.NA) 

IF (CABS(CMPLX(B33,B33I)) .GE. EPSB) GO TO 122 
B33 * EPSB 
B33I = 0.0 
122 B44 = BR(EN,EN) 

B44I = BI(EN,EN) 

IF ( CABS ( CMPLX ( B44 , B44 I ) ) .GE. EPSB) GO TO 124 
B44 = EPSB 
B44I = 0.0 

124 B3344 = B33 * B44 - B33I * B44I 
B3344I = B33 * B44I + B33I * B44 
A33 <= AR(NA,NA) * B44 - AI (NA,NA) * B44I 
A33I = AR(NA.NA) * B44I + AI(NA.NA) * B44 
A34 = AR(NA.EN) * B33 - AI(NA.EN) * B33I 
X - AR(NA.NA) * BR(NA.EN) + AI(NA.NA) * BI(NA.EN) 

A34I = AR(NA.EN) * B33I + AI(NA.EN) * B33 
X - AR(NA.NA) * BI(NA.EN) - AI(NA.NA) * BR(NA.EN) 

A43 = AR(EN,NA) * B44 
A43I = AR(EN r NA) * B44I 

A44 = AR(EN.EN) * B33 - AI(EN.EN) * B33I - AR(EN.NA) * BR(NA.EN) 
A44I * AR(EN.EN) * B33I + AI(EN.EN) * B33 - AR(EN,NA) * BI(NA.EN) . 
SH = A44 
SHI * A44I 
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XR = A34 * A43 - A34I * A43I 

XI = A34 * A43I + A34I * A43 

IF (XR .EQ. 0.0 .AND. XI .EQ. 0.0) GO TO 140 

YR = (A33 - SH) / 2.0 

YI = (A33I - SHI) / 2.0 

Z3 = CSQRT (CMPLX(YR**2-YI**2+XR,2.0*YR*YI+XI)) 

U1 = REAL(Z3) 

U1I * AIMAG(Z3) 

IF (YR * U1 + YI * U1I .GE. 0.0) GO TO 125 
U1 = -U1 

125 Z3 ! = (CMPLX(SH,SHI) - CMPLX(XR.XI) / CMPLX(YR+U1,YI+U1I)) 
X / CHPLX (B3344 , B3 344 1 ) 

SH = REAL(Z3) 

SHI = AIMAG(Z3) 

GO TO 140 

c ********** AD HOC SHIFT ********** 

135 SH = AR(EN.NA) + AR(NA,ENM2) 

SHI = 0.0 

c ********** DETERMINE ZEROTH COLUMN OF A ********** 

140 A1 = AR(L,l) / BU - SH 
All = AI(L.L) / Bll - SHI 
A2 * AR(L1,L) / Bll 
ITS * ITS + 1 
IF (.NOT. MATZ) LORI = L 
q ********** J4AJN LOOP ********** 

DO 260 K = L, NA 

K1 <= K + 1 
K2 = K + 2 
KM1 - MAXO(K-l.L) 

c ********** ZERO A(K+1,K-1) ********** 

IF (K .EQ. L) GO TO 170 
A1 «= AR(K.KMl) 

All * AI(K,KM1) 

A2 - AR(Kl.KMl) , , 

170 S = ABS(Al) + ABS (All) + ABS(A2) 

U1 * A1 / S 
U1I = All / S 
U2 = A2 / S 

R = SQRT(U1*U1+U1I*U1I+U2*U2) 

U1 = U1 / R 
U1I = U1I / R 
U2 = U2 / R 


C 


180 J * KM1, ENORN 
XR = AR(K,J) 

XI = AI(K,J) 

YR * AR(Kl.J) 

YI = Al(Kl.J) 

AR(K, J) = U1 * 
AI(K,J) = U1 * 
AR(Kl.J) = U1 
AI(K1,J) = U1 
XR = BR(K, J) 

XI = BI(K,J) 

YR = BR(K1, J) 

l.J) 


XR ■ 
XI 

* YR 

* YI 


K U1I 1 
■ U1I 1 
- U1I 
+ U1I 


XI 

XR 


U2 * 
U2 * 
YI - U2 
YR - U2 


YI * BI(K1, 


BR(K 
BI 


(M) 

(M) 


= U1 
U1 1 
BR(Ki.j) = U1 


XR + 
XI - 
* YR 


U1I 
U1I 
- U1I 


‘ XI + 
k XR + 
* YI 


U2 * 
U2 * 
- U2 


YR 

YI 

* XR 

* XI 


YR 

YI 

* XR 
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BI(K1,J) = U1 * YI + U1I * YR - U2 * XI 
180 CONTINUE 
C 

IF (K .EQ. L) GO TO 240 
AI(K.KMl) = 0.0 
AR ( K1 , KM1 ) = 0.0 
AI(Kl.KMl) = 0.0 

q ********** 2ER0 B(K+1 K) ********** 

240 S = ABS(BR(K1,K1))'+ ABS (BI (K1 , K1 ) ) + ABS (BR (K1 . K) ) 
U1 = BR(K1,K1) / S 
U1I = BI (K1 , Kl) / S 
U2 * BR(K1,K) / S 
R = SQRT (U1*U1+U1I*U1I+U2*U2) 

U1 = U1 / R 
U1I = U1I / R 
U2 = U2 / R 

IF (K .EQ. NA) GO TO 245 
XR = AR(K2,K1) 

AR(K2,K1) = U1 * XR 
AI(K2,K1) = -U1I * XR 
AR(K2,K) = -U2 * XR 
C 

245 00 250 I * LORI, Kl 

XR = AR(I,K1) 

XI = AI(I.Kl) 

YR = AR(I.K) 

YI = AI(I.K) 

AR(I.Kl) = U1 * XR + U1I * XI + U2 * YR 

AI(I,K1) ■ U1 * XI - U1I * XR + U2 * YI 

AR(I,K) * U1 * YR - U1I * YI - U2 * XR 

AI(I,K) «= U1 * YI + U1I * YR - U2 * XI 

XR * BR(I,K1) 

XI = BI (I , Kl) 

YR «= BR(I,K) 

YI = BI(I,K) 

BR(I,K1) = U1 * XR + U1I * XI + U2 * YR 

BI(I,K1) = U1 * XI - U1I * XR + U2 * YI 

BR(I,K) = U1 * YR - U1I * YI - U2 * XR 

BI (I ,K) = U1 * YI + U1I * YR - U2 * XI 

250 CONTINUE 

C 

BI (Kl . Kl) = 0.0 
BR(K1,K) * 0.0 
BI(K1,K) = 0.0 
IF (.NOT. MATZ) GO TO 260 
C 

DO 255 I = 1, N 
XR = ZR(I.Kl) 

XI = ZI(I.Kl) 

YR = ZR(I,K) 

YI = ZI(I.K) 

ZR(I.Kl) = U1 * XR + U1I * XI + U2 * YR 

Zl(I.Kl) = U1 * XI - U1I * XR + U2 * YI 

ZR ( I , K) ■= U1 * YR - U1I * YI - U2 * XR 

ZI(I.K) = U1 * YI + U1I * YR - U2 * XI 

255 CONTINUE 

C 

260 CONTINUE 

c ********** SET LAST A SUBDIAGONAL REAL AND END QZ STEP 
IF (AI(EN.NA) .EQ. 0.0) GO TO 70 


********** 
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R = CABS(CMPLX(AR(EN,NA),AI(EN,NA))) 

U1 = AR(EN.NA) / R 
U1I = AI(EN,NA) / R 
AR(EN.NA) * R 
AI(EN.NA) = 0.0 
C 

DO 270 J * EN, ENORN 

XI = U1 * AI (EN, J) - U1I * AR(EN,J) 

AR(EN, J) = U1 * AR(EN.J) + U1I * AI(EN,J) 

AI (EN, J) = XI 

XI * U1 * BI (EN, J) - U1I * BR(EN, J) 

BR(EN.J) = U1 * BR(EN,J) + U1I * BI(EN,J) 

BI (EN. J) = XI 
270 CONTINUE 
C 

GO TO 70 

C ********** SET ERROR — BOTTOM SUBDIAGONAL ELEMENT HAS NOT 
C BECOME NEGLIGIBLE AFTER 50 ITERATIONS ********** 

1000 I ERR = EN 

C ********** SAVE EPSB FOR USE BY CQZVEC ********** 

1001 IF (N .GT. 1) BR(N,1) * EPSB 
RETURN 

C ********** last CARD OF CQZVAL ********** 

END 

VEC 10 

VEC 20 

VEC 30 

SUBROUTINE CQZVEC (NM,N,AR,AI,BR,BI,ALFR,ALFI, BETA, ZR,ZI) VEC 40 


INTEGER I, J,K,M,N,EN, II, JJ,NA,NM,NN 

REAL AR(NM,N) ,AI(NM,N),BR(NM,N),BI(NM,N),ALFR(N),ALFI(N) , 
X BETA(N) ,ZR(NM,N) ,ZI(NM,N) 

REAL R,T,RI,TI, XI , ALMI , ALMR, BETM, EPSB 

REAL CABS.T5 

COMPLEX Z3.T6 

COMPLEX CMPLX 

REAL REAL.AIMAG 


THIS SUBROUTINE IS A COMPLEX ANALOGUE OF THE FOURTH STEP OF THE 
QZ ALGORITHM FOR SOLVING GENERALIZED MATRIX EIGENVALUE PROBLEMS, 
SIAM J. NUMER. ANAL. 10, 241-256(1973) BY MOLER AND STEWART. 

THIS SUBROUTINE ACCEPTS A PAIR OF COMPLEX MATRICES IN UPPER 
TRIANGULAR FORM, WHERE ONE OF THEM FURTHER MUST HAVE REAL DIAGONAL 
ELEMENTS. IT COMPUTES THE EIGENVECTORS OF THE TRIANGULAR PROBLEM 
AND TRANSFORMS THE RESULTS BACK TO THE ORIGINAL COORDINATE SYSTEM. 
IT IS USUALLY PRECEDED BY CQZHES AND CQZVAL. 

ON INPUT- 

NM MUST BE SET TO THE ROW DIMENSION OF TWO-DIMENSIONAL 
ARRAY PARAMETERS AS DECLARED IN THE CALLING PROGRAM 
DIMENSION STATEMENT, 

N IS THE ORDER OF THE MATRICES, 
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A=(AR, AI) CONTAINS A COMPLEX UPPER TRIANGULAR MATRIX, 

B=(BR,BI) CONTAINS A COMPLEX UPPER TRIANGULAR MATRIX WITH REAL 
DIAGONAL ELEMENTS. IN ADDITION, LOCATION BR(N,1) CONTAINS 
THE TOLERANCE QUANTITY (EPSB) COMPUTED AND SAVED IN CQZVAL, 

ALFR, ALFI, AND BETA ARE VECTORS WITH COMPONENTS WHOSE 
RATIOS ((ALFR+I*ALFI)/BETA) ARE THE GENERALIZED 
EIGENVALUES. THEY ARE USUALLY OBTAINED FROM CQZVAL, 

Z=(ZR,ZI) CONTAINS THE TRANSFORMATION MATRIX PRODUCED IN THE 
REDUCTIONS BY CQZHES AND CQZVAL, IF PERFORMED. 

IF THE EIGENVECTORS OF THE TRIANGULAR PROBLEM ARE 
DESIRED, Z MUST CONTAIN THE IDENTITY MATRIX. 

ON OUTPUT- 

A IS UNALTERED, 

B HAS BEEN DESTROYED, 

ALFR, ALFI, AND BETA ARE UNALTERED, 

Z CONTAINS THE EIGENVECTORS. EACH EIGENVECTOR IS NORMALIZED 
SO THAT THE MODULUS OF ITS LARGEST COMPONENT IS 1.0 . 

QUESTIONS AND COMMENTS SHOULD BE DIRECTED TO B. S. GARBOW, 

APPLIED MATHEMATICS DIVISION, ARGONNE NATIONAL LABORATORY 


IF (N .LE. 1) GO TO 1001 
EPSB = BR(N, 1) 

C ********** F0R EN=N STE p _i until 2 DO — ********** 

DO 800 NN = 2, N 
EN = N + 2 - NN 
NA = EN - 1 
ALMR = ALFR(EN) 

ALMI = ALFI (EN) 

BETM = BETA(EN) 

c ********** F0R i=EN-l STEP -1 UNTIL 1 DO -- ********** 

DO 700 II = 1, NA 
I = EN - II 
R = 0.0 
RI = 0.0 
M = I + 1 

C 

DO 610 J = M, EN , 

T = BETM * AR(I, J) - ALMR * BR(I.J) + ALMI * BI(I.J) 
TI = BETM * AI(I,J) - ALMR * BI(I.J) - ALMI * BR(I,J) 
IF (J .EQ. EN) GO TO 605 
XI = T * BI(J,EN) + TI * BR(J,EN) 

T = T * BR(J,EN) - TI * BI(J,EN) 

TI = XI 

605 R = R + T 

RI = RI + TI 
610 CONTINUE 

C T = ALMR * BETA(I) - BETM * ALFR (I) 

TI = ALMI * BETA (I) - BETM * ALF1(I) 
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IF (T .EQ. 0.0 .AND. TI .EQ. 0.0) T = EPSB 
Z3 = CMPLX(R.RI) / CMPIX(T,TI) 

BR(I.EN) - REAL (Z3 ) 

BI(I.EN) = AIMAG(Z3) 

700 CONTINUE 


C 

800 CONTINUE 

********** END BACK SUBSTITUTION. 

TRANSFORM TO ORIGINAL COORDINATE SYSTEM. 
FOR J=N STEP -1 UNTIL 2 DO — ********** 


DO 880 JJ = 2, N 
J = N + 2 - JJ 
M = J - 1 


DO 860 K = 1, M 

ZR(I,J) = ZR(I.J) + ZR(I.K) * BR(K.J) - ZI{I.K) 
ZI(I.J) * ZI(I,J) + ZR(I.K) * BI(K, J) + ZI(I,K) 
860 CONTINUE 

C 

880 CONTINUE 

C ********** NORMALIZE SO THAT MODULUS OF LARGEST 
C COMPONENT OF EACH VECTOR IS 1 ********** 

DO 950 J = 1, N 
C 

DO 930 I » 1, N 

IF(I .EQ. 1) T5 * ABS(ZR(I.J)) 

R = ABS(ZR(I, J)) 

IF (R .GE. T5) THEN 
T5 = R 
15=1 
ELSE 
ENDIF 

930 CONTINUE 
C 


BI(K,J) 

BR(K,J) 


DO 940 I * 1, N 

T6 = CMPLX(ZR(I, J) ,ZI (I, J))/CMPLX(ZR(I5,J) ,ZI (15, J)) 
ZR(I, J) = REAL(T6) 

ZIU.J) = AIMAG(T6) 

940 CONTINUE 
C 

950 CONTINUE 
C 

1001 RETURN 

c ********** L /\st CARD OF CQZVEC ********** 

END 


subroutine cg(nm,n,ar,a1 ,wr,w1 ,matz,zr,z1,fvl,fv2 r fv3,1err) 
Integer n,nm,1sl,1s2,1err,matz 

double precision ar(nm,n) ,a1 (nro.n) ,wr(n) ,w1 (n) ,zr(nm,n) ,z1 (nm.n) , 
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fvl(n) ,fv2(n) ,fv3(n) 
c 

c this subroutine calls the recommended sequence of 
c subroutines from the elgensystem subroutine package (eispack) 
c to find the eigenvalues and eigenvectors (if desired) 
c of a complex general matrix, 

c 

c on Input 

c 

c nm must be set to the row dimension of the two-dimensional 

c array parameters as declared In the calling program 

c dimension statement, 

c 

c n Is the order of the matrix a*(ar,a1). 

c 

c ar and ai contain the real and Imaginary parts, 

c respectively, of the complex general matrix, 

c 

c matz Is an integer variable set equal to zero If 

c only eigenvalues are desired, otherwise It Is set to 

c any non-zero Integer for both eigenvalues and eigenvectors, 

c 

c on output 
c 

c wr and wl contain the real and Imaginary parts, 

c respectively, of the eigenvalues, 

c 

c zr and zl contain the real and Imaginary parts, 

c respectively, of the eigenvectors if matz Is not zero, 

c 

c ierr Is an Integer output variable set equal to an error 

c completion code described In the documentation for comqr 

c and comqr2. the normal completion code Is zero, 

c 

c fvl, fv2, and fv3 are temporary storage arrays, 

c 

c questions and comments should be directed to burton s. garbow, 

c mathematics and computer science dlv, argonne national laboratory 

c 

c this version dated august 1983. 
c 


If (n .le. nm) go to 10 
Ierr = 10 * n 
go to 50 
c 

10 call cbal (nm,n,ar,a1 ,1sl,1s2,fvl) 


call corth{nm,n,1sl, 1s2,ar,ai ,fv2,fv3) 
if (matz .ne. 0) go to 20 

c find eigenvalues only 

call comqr (nm,n,1 si, is2,ar,a1 ,wr,wi , ierr) 
go to 50 

c find both eigenvalues and eigenvectors 


20 call comqr2(nm,n,1sl,1s2,fv2,fv3,ar,ai,wr,w1,zr,zi,1err) 
If (Ierr .ne. 0) go to 50 
call cbabk2(nm,n,1sl,1s2,fvl,n,zr,z1) 

50 return 
end 
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C 


subroutine cbabk2 (nm, n, low, igh, seal e.m.zr.zl) 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


Integer i,J,k,m,n,1i,nm f 1gh f low 

double precision scale(n) ,zr(nm,m) ,z1 (nm,m) 

double precision s 

this subroutine is a translation of the algol procedure 
cbabk2, which Is a complex version of balbak, 
num. math. 13, 293-304(1969) by parlett and relnsch. 
handbook for auto, comp., vol .11-11near algebra, 315-326(1971). 

this subroutine forms the eigenvectors of a complex general 
matrix by back transforming those of the corresponding 
balanced matrix determined by cbal. 

on Input 

nm must be set to the row dimension of two-dimensional 
array parameters as declared in the calling program 
dimension statement. 

n is the order of the matrix. 

low and igh are Integers determined by cbal. 

scale contains information determining the permutations 
and scaling factors used by cbal. 

m is the number of eigenvectors to be back transformed. 

zr and zi contain the real and imaginary parts, 
respectively, of the eigenvectors to be 
back transformed in their first m columns. 

on output 

zr and zi contain the real and Imaginary parts, 
respectively, of the transformed eigenvectors 
in their first m columns. 

questions and comments should be directed to burton s. garbow, 
mathematics and computer science div, argonne national laboratory 

this version dated august 1983. 


If (m .eq. 0) go to 200 
if (igh .eq. low) go to 120 


100 


110 i = low, igh 

s * scale(i) x , 

left hand eigenvectors are back transformed 
If the foregoing statement Is replaced by 
s=1.0d0/$cale(1) 


do 100 j * 1. m 
zr(1J) s zr(1,j) 
zi (i , j) - zi (1 , j) 


continue 


* s 

* s 
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110 continue 


c for 1=low-l step -1 until 1, 

c igh+1 step 1 until n do . 


120 do 140 11 = 1, n 
1 «= 11 

If (i .ge. low .and. i .le. 1 gh) go to 140 
If (1 .It. low) 1 = low - 11 
k = scale(i) 

If (k .eq. 1) go to 140 

do 130 j = 1, m 
s = zr(1,j) 
zr(1 , j) = zr(k,j) 
zr(kj) = s 
$ = zl(I.J) 
z1(1 J) - zl(kj) 
zl (k, j) = s 

130 continue 

140 continue 

200 return 
end 


subroutine comqr2(nm,n, low, igh.ortr.ortl ,hr,hi ,wr,w1 ,zr,z1 , lerr) 

C MESHED overflow control WITH vectors of Isolated roots (10/19/89 BSG) 
C MESHED overflow control WITH triangular multiply (10/30/89 BSG) 
c 

Integer 1 ,j,k,l,m,n,en,1i,jj,11,nm,nn,1gh,1pl, 
x 1tn,1ts,low,lpl,enml,1end,1err 

double precision hr(nm,n) ,h1 (nrn,n) ,wr(n) ,w1 (n) ,zr(nm,n) ,z1 (nm,n) , 
x ortr(1gh),ort1(1gh) 

double precision s1,sr,t1,tr,x1,xr,y1,yr,zz1,zzr,norm,tstl,tst2, 
x pythag 

c 

c this subroutine Is a translation of a unitary analogue of the 

c algol procedure comlr2, num. math. 16, 181-204(1970) by peters 

c and wllklnson. 

c handbook for auto, comp., vol ,11-llnear algebra, 372-395(1971). 

c the unitary analogue substitutes the qr algorithm of francls 
c (comp. jour. 4, 332-345(1962)) for the lr algorithm, 
c 

c this subroutine finds the eigenvalues and eigenvectors 
c of a complex upper hessenberg matrix by the qr 
c method, the eigenvectors of a complex general matrix 

c can also be found If corth has been used to reduce 

c this general matrix to hessenberg form, 

c 

c on i nput 

c 

c nm must be set to the row dimension of two-dimensional 

c array parameters as declared In the calling program 

c dimension statement, 

c 

c n Is the order of the matrix, 

c 

c low and Igh are Integers determined by the balancing 

c subroutine cbal. If cbal has not been used. 
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c set 1 ow= 1 , 1gh=n. 

c 

c ortr and ortl contain Information about the unitary trans- 

c formations used In the reduction by corth, If performed, 

c only elements low through Igh are used. If the eigenvectors 

c of the hessenberg matrix are desired, set ortr(J) and 

c orti(j) to O.OdO for these elements, 

c 

c hr and hi contain the real and imaginary parts, 

c respectively, of the complex upper hessenberg matrix, 

c their lower triangles below the subdiagonal contain further 

c Information about the transformations which were used In the 

c reduction by corth, if performed. If the eigenvectors of 

c the hessenberg matrix are desired, these elements may be 

c arbitrary, 

c 

c on output 
c 

c ortr, ortl, and the upper hessenberg portions of hr and hi 

c have been destroyed, 

c 

c wr and wl contain the real and Imaginary parts, 

c respectively, of the eigenvalues. If an error 

c exit Is made, the eigenvalues should be correct 

c for Indices 1err+i,...,n. 

c 

c zr and zl contain the real and Imaginary parts, 

respectively, of the eigenvectors, the eigenvectors 
are unnormalized. If an error exit Is made, none of 
the eigenvectors has been found, 
c 

c lerr Is set to 

c zero for normal return, 

c j If the limit of 30*n Iterations Is exhausted 

c while the j-th eigenvalue Is being sought, 

c 

c calls cdlv for complex division, 
c calls csroot for complex square root, 
c calls pythag for dsqrt(a*a + b*b) . 
c 

c questions and comments should be directed to burton s. garbow, 

c mathematics and computer science dlv, argonne national laboratory 

c 

c this version dated October 1989. 
c 

c 

c 

lerr = 0 

c Initialize eigenvector matrix 

do 101 j = 1, n 
c 

do 100 1 * 1, n 
zr (1 , j) - O.OdO 
21(1, J) = O.OdO 


100 continue 
zr(j.J) - l.OdO 

101 continue 

form the matrix of accumulated transformations 

from the Information left by corth 

lend * Igh - low - 1 
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if (iend) 180, 150, 105 

for 1=1 gh-1 step -1 until low+1 do — 

105 do 140 11 = 1, lend 
1 = Igh - 11 

if (ortr(i) .eq. O.OdO .and. ort 1(1) .eq. O.OdO) go to 140 
If (hr (1 , 1 -1 ) .eq. O.OdO .and. hi (1,1-1) .eq. O.OdO) go to 140 

c norm below Is negative of h formed In corth 

norm = hr(i,1-l) * ortr(i) + hi (i , 1 -1) * ortl(l) 

1 pi = 1 + 1 
c 

do 110 k = Ipl, Igh 
ortr(k) = hr(k,1-l) 
orti (k) = hi (k, 1-1) 

110 continue 
c 

do 130 j * 1, igh 
sr = O.OdO 
si = O.OdO 


c 


115 

c 


c 


120 


do 115 k = i, igh 

sr = sr + ortr(k) * zr(k,j) + ortl(k) * z1(k,j) 
si = si + ortr(k) * zl(kj) - ortl(k) * zr(k,j) 
continue 


sr = sr / norm 
si = si / norm 


do 120 k = 1 , igh 

zr(k,j) = zr(k,j) + sr * ortr(k) - si * ortl(k) 
z1(k,j) « z1(k,j) + sr * ortl(k) + si * ortr(k) 
continue 


c 

130 continue 


140 continue 

c create real subdiagonal elements 

150 1 = low + 1 


c 


c 


c 


c 


do 170 1 =1, Igh 
11 = m1n0(1+l ,1gh) 

If (hi (i ,1-1) .eq. O.OdO) go to 170 
norm = pythag(hr(1 ,1-1) , hi (1 ,1-1)) 
yr = hr (1 ,1-1) / norm 
yl = hi (1 , 1 -1 ) / norm 
hr(i ,1-1) = norm 
hi (1,1-1) = O.OdO 


155 


160 


do 155 j - 1, n 

si = yr * hi (1 , j) - yl * 
hr(i,j) = yr * hr(1,j) + 
hi (1 , j) = si 
continue 

do 160 j = 1, 11 

si = yr * hi (J , 1 ) + yl * 
hr(J ,1) = yr * hr(j,1) - 
hi (j,1) - si 
continue 


hr(i,j) 
yi * hi(i.j) 


hr(j.l) 
yl * hi ( j , 1) 


do 165 J = low, Igh 
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si = yr * 2i(j,i) + yl * zr(j,1) 


zr(j,1) = yr * zr(j,1) - yl * z1(j,1) 
2i(j.1) * si 
165 continue 
c 

170 continue 

c store roots Isolated by cbal ... 


180 do 200 1 « 1, n 

If (i .ge. low .and. 1 .le. 1 gh) go to 200 
wr(i) = hr(i , 1 ) 

"1(1) = hi (1,1) 

200 continue 


en = Igh 
tr = O.OdO 
tl = O.OdO 
itn = 30*n 

c search for next eigenvalue 

220 if (en .It. low) go to 680 
Its = 0 
enml * en - 1 

c look for single small sub-diagonal element 

c for l=en step -1 until low do -- 


240 do 260 11 «= low, en 
1 = en + low - 11 
If (1 .eq. low) go to 300 
tstl = dabs(hr(l-l,l-l)) + dabs(hi (1-1, 1-1)) 
x + dabs(hr(l ,1)) + dabs(h1(l,l)) 

tst2 = tstl + dabs (hr (1,1-1)) 

If (tst2 .eq. tstl) go to 300 
260 continue 

c form shift 

300 If (1 .eq. en) go to 660 
If (Itn .eq. 0) go to 1000 
If (its .eq. 10 .or. Its .eq. 20) go to 320 
sr * hr(en,en) 
si = hi (en,en) 

xr = hr (enml, en) * hr(en.enml) 
xl = hi (enml, en) * hr (en, enml) 

If (xr .eq. O.OdO .and. xl .eq. O.OdO) go to 340 

yr = (hr(enml,enml) - sr) / 2.0d0 

yl = (hi (enml, enml) - si) / 2.0d0 

cal 1 csroot (yr**2-y 1 **2+xr , 2 . 0d0*yr*y1 +x1 , zzr, zzl ) 

If (yr * zzr + yl * zzl .ge. O.OdO) go to 310 

zzr = -zzr 

zzl = -zzl 

310 call cdiv(xr,x1,yr+zzr,y1+zzi,xr,x1) 
sr * sr - xr 
si = si - xi 
go to 340 

c form exceptional shift 

320 sr = dabs(hr(en,enml)) + dabs(hr(enml,en-2)) 
si = O.OdO 
c 

340 do 360 1 = low, en 

hr(i.l) * hr (1 . 1 ) - sr 
hi (1 , 1 ) = hi (1,1) - si 
360 continue 
c 

tr = tr + sr 


- 254 - 


tl = tl + si 
its = Its + 1 
Itn = Itn - 1 

c reduce to triangle (rows) 

lpl = 1 + 1 
c 

do 500 i = lpl, en 
sr = hr(i ,1-1) 
hr(i,1-l) = O.OdO 

norm = pythag(pvthag(hr(1-l,1-l),hi(1-l,1-l)),sr) 
xr = hr(i-l.l-l) / norm 
wr(l-l) = xr 
xi = hi (1-1, 1-1) / norm 
wl (1 -1 ) = xi 
hr(1-l,1-l) = norm 
hi (1-1, 1-1) = O.OdO 
hi (1 , 1-1) = sr / norm 
c 

do 490 j = 1 , n 
yr = hr(i-l J) 

>1 - hi (1-1, J) 
zzr = hr (1 , j) 
zzl - hi (1.J) 

hr (1-1 , j) = xr * yr + xi * yl + hi (1,1-1) * zzr 

hi (1-1, j) ■ xr * yl - xi * yr + hi (1,1-1) * zzl 

hr (1 , j) = xr * zzr - xi * zzl - hi (1,1-1) * yr 

hi (1,j) = xr * zzl + xi * zzr - hi (1,1-1) * yi 

490 continue 
c 

500 continue 
c 

si = hi (en,en) 

If (si .eq. O.OdO) go to 540 
norm = pythag(hr(en,en),s1) 
sr = hr(en,en) / norm 
si * si / norm 
hr(en,en) = norm 
hl(en.en) = O.OdO 
If (en .eq. n) go to 540 
lpl * en + 1 
c 

do 520 J = lpl, n 
yr = hr(enj) 
yl = hi (en, j) 

hr(en,j) = sr * yr + si * yl 
h1(en,j) = sr * yi - si * yr 
520 continue 

c Inverse operation (columns) 

540 do 600 j = lpl, en 
xr = wr(j-l) 
xi = wi(j-l) 
c 

do 580 i = 1, j 
yr = hr(IJ-l) 
yl = O.OdO 
zzr = hr(1,j) 
zzl = hi (1 , j) 

If (1 .eq. j) go to 560 
yl = hl(IJ-l) 

hl(i.j-l) = xr * yl + xi * yr + hl(j.J-l) * zzl 
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560 hr(ij-l) = xr * yr - xi * yi + hi(j.j-l) * zzr 

hr(i,j) = xr * zzr + xi * zzi - hi (j, 3-1) * yr 

hi (i , j ) = xr * zzi - xi * zzr - hi(j,j-l) * yi 

580 continue 

c 

do 590 i * low, Igh 
yr = zr(IJ-l) 
yi = zl(ij-l) 
zzr = zr(1,j) 

zzi * zl(IJ) 

zr(i,j-l) * xr * yr - xi * yi + h1(J,j-l) * zzr 
zl (l.j-l) = xr * yi + xi * yr + hi(3,j-l) * zzi 
zr(1,j) * xr * zzr + xi * zzi - hi (j, 3-1) * yr 

z1(1,j) = xr * zzi - xi * zzr - hi (3.3-1) * yi 

590 continue 

c 

600 continue 
c 

If (si .eq. O.OdO) go to 240 
c 

do 630 1 = 1, en 
yr * hr(1 ,en) 
yi = h1(1,en) 

hr(1,en) * sr * yr - si * yi 

h1(1,en) = sr * yi + si * yr 

630 continue 
c 

do 640 1 = low, Igh 
yr * zr(1,en) 
yi * zl (i,en) 

zr(1,en) « sr * yr - si * yi 

z1(1,en) = sr * yi + si * yr 

640 continue 
c 

go to 240 

c a root found 

660 hr(en,en) * hr(en,en) + tr 
wr(en) = hr(en,en) 
hi(en,en) = h1(en,en) + ti 
wl(en) = hl(en.en) 
en = enml 
go to 220 


c all roots found, backsubstitute to find 

c vectors of upper triangular form 


680 norm = O.OdO 
do 720 1 = 1, n 
do 720 j = i , n 

tr = dabs (hr (i , j) ) + dabs(hi(i.j)) 

If (tr .gt. norm) norm = tr 
720 continue 

if (n .eq. 1 .or. norm .eq. O.OdO) go to 1001 

for en«n step -1 until 2 do -- ... 

do 800 nn = 2, n 
en * n + 2 - nn 
xr * wr(en) 
xi = wl (en) 
hr(en,en) = l.OdO 
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hi (en.en) = O.OdO 
enml = en - 1 

c for i=en-l step -1 until 1 do — 

do 780 11*1, enml 
i = en - 1i 
zzr « O.OdO 
zzi = O.OdO 
Ipl = 1 + 1 
c 

do 740 j = Ipl, en 

zzr = zzr + hr(1,j) * hr(j,en) - HI (1 , J) * hl(j.en) 
zzi = zzi + hr(1,j) * h1(j,en) + h1(i J) * hr(j,en) 
740 continue 

c 

yr = xr - wr(i) 
yl = xi - wl (1) 

if (yr .ne. O.OdO .or. yl .ne. O.OdO) go to 765 
tstl = norm 
yr = tstl 

760 yr = O.OldO * yr 

tst2 = norm + yr 
If (tst2 .gt. tstl) go to 760 
765 continue 

cal 1 cd1v(zzr,zz1 ,yr,y1 ,hr(1 ,en) ,h1 (1 ,en)) 

c overflow control 

tr = dabs(hr(1 ,en)) + dabs (hi (1,en)) 

If (tr .eq. O.OdO) go to 780 
tstl = tr 

tst2 = tstl + l.OdO/tstl 
If (tst2 .gt. tstl) go to 780 
do 770 J = 1, en 

hr(j,en) = hr(j,en)/tr 
hl(J.cn) = h1(j,en)/tr 


770 continue 

c 

780 continue 
c 

800 continue 

c end backsubstitutlon .... 

c vectors of Isolated roots 


do 840 i = 1, N 

If (1 .ge. low .and. 1 .le. Igh) go to 840 
c 

do 820 j = I, n 
zr(i.j) = hr(i.j) 

Zl(1,j) = hi (1 , j) 


820 continue 
c 

840 continue 

c multiply by transformation matrix to give 

c vectors of original full matrix, 

c for j=n step -1 until low do — 


do 880 jj = low, N 
j = n + low - jj 
m = mlnO(J.lgh) 
c 

do 880 i ■ low, Igh 
zzr = O.OdO 
zzi = O.OdO 
c 
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do 860 k = low, m 

zzr = zzr + zr(1,k) * hr(k,j) - zi(1,k) * hi(k,j) 
zzi = zzi + zr(i,k) * h1(k,J) + z1(1,k) * hr(k,j) 
860 continue 

c 

zr(i,j) = zzr 
zl(IJ) ■= zzi 
880 continue 
c 

go to 1001 


c set error — all eigenvalues have not 

c converged after 30*n iterations 


1000 lerr = en 

1001 return 
end 

subroutine comqr(mn,n,low,1gh,hr,h1,wr,wi,1err) 
c 

integer 1, j,l , n, en, 1 1, nm, Igh, Itn, Its, low, lpl.enml, lerr 
double precision hr(nm,n),h1(nm,n),wr(n),w1(n) 
double precision s1,sr,t1,tr,x1,xr,yi,yr,zz1,zzr,nonji,tstl,tst2, 
x pythag 
c 

c this subroutine Is a translation of a unitary analogue of the 
c algol procedure comlr, nun. math. 12, 369-376(1968] by martin 

c and Wilkinson. 

c handbook for auto, comp., vol. 11-1 Inear algebra, 396-403(1971). 
c the unitary analogue substitutes the qr algorithm of f rancls 
c (comp. jour. 4, 332-345(1962)) for the lr algorithm, 
c 

c this subroutine finds the eigenvalues of a complex 
c upper hessenberg matrix by the qr method, 

c 

c on Input 

c 

c nm must be set to the row dimension of two-dimensional 

c array parameters as declared In the calling program 

c dimension statement, 

c 

c n Is the order of the matrix, 

c 

c low and Igh are Integers determined by the balancing 

c subroutine cbal . If cbal has not been used, 

c set low=l, 1gh=n. 

c 

c hr and hi contain the real and Imaginary parts, 

c respectively, of the complex upper hessenberg matrix, 

c their lower triangles below the subdiagonal contain 

c Information about the unitary transformations used in 

the reduction by corth, if performed. 

on output 

the upper hessenberg portions of hr and hi have been 
destroyed, therefore, they must be saved before 
calling comqr If subsequent calculation of 
eigenvectors Is to be performed. 

wr and wl contain the real and Imaginary parts, 
respectively, of the eigenvalues, if an error 
exit Is made, the eigenvalues should be correct 
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c for Indices 1err+l, . . . ,n. 

c 

c lerr is set to 

c zero for normal return, 

c j If the limit of 30*n Iterations Is exhausted 

c while the j-th eigenvalue is being sought, 

c 

c calls cdiv for conplex division, 
c calls csroot for complex square root, 
c calls pythag for dsqrt(a*a + b*b) . 
c 

c questions and comments should be directed to burton s. garbow, 

c mathematics and computer science div, argonne national laboratory . 

c 

c this version dated august 1983. 
c 

c 

c 

lerr = 0 

If (low .eq. Igh) go to 180 

c create real subdiagonal elements 

1 = low + 1 
c 

do 170 1 = 1, Igh 
11 = m1n0(1+l,1gh) 

If (hi (1,1-1) .ea. O.OdO) go to 170 
norm = pythag(hr(l,1-l),h1(i,1-l)) 
yr = hr(1,1-l) / norm 
yi * hi (i ,1-1) / norm 
hr(i,1-l) = norm 
hi (1,1-1) «= O.OdO 
c 

do 155 J « 1, Igh 

si = yr * hi (1 . j) - yi * hr(1,j) 
hr(1 , j ) = yr * hr(1,j) + yi * hl(i.j) 
hi (1 J) = si 
155 continue 
c 

do 160 j = low, 11 

si = yr * hi (J,1) + yi * hr(j,1) 
hr(j,11 = yr * hr(J,1) - yi * hl(j.l) 
hi (J, 1) « si 


160 continue 
c 

170 continue 

c store roots Isolated by cbal 


180 do 200 1 = 1, n 

If (1 .ge. low .and. i .le. Igh) go to 200 
wr(1) = hr(1,1) 

wf{1) = hi (i , i) 

200 continue 
c 

en = Igh 
tr = O.OdO 
ti = O.OdO 
Itn = 30*n 

c search for next eigenvalue 

220 If (en .It. low) go to 1001 
Its = 0 
enml = en - 1 
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c look for single small sub-diagonal element 

c for l«en step -1 until low dO — 


240 do 260 11 = low, en 
1 = en + low - 11 
If (1 .eq. low) go to 300 
tstl * dabs(hr(l-l,l-l)) + dabs(hi (1-1, 1-1)) 
x + dabs (hr( 1 , 1 ) ) + dabs(hi(l,l)) 

tst2 * tstl + dabs(hr(l ,1-1)) 

If (tst2 .eq. tstl) go to 300 
260 continue 


c form shift 

300 if (1 .eq. en) go to 660 
If (Itn .eq. 0) go to 1000 
If (Its .eq. 10 .or. Its .eq. 20) go to 320 
sr = hr(en,en) 
si = hi (en.en) 

xr = hr(enml,en) * hr(en,enml) 
xl = hi (enrol, en) * hr (en, enml) 

If (xr .eq. O.OdO .and. xl .eq. O.OdO) go to 340 

yr = (hr(enml,enml) - sr) / 2.0d0 

yi = (hi (enrol, enml) - si) / 2.0d0 

cal 1 csroot (yr**2-y1 **2+xr ,2.0d0*yr*y1 +xi , zzr , zzi ) 

If (yr * zzr + yi * zzi .ge. O.OdO) go to 310 

zzr = -zzr 

zzi = -zzi 

310 call cdiv(xr,x1,yr+zzr,y1+zz1,xr t x1) 
sr = sr - xr 
si = si - xi 
go to 340 

c form exceptional shift 

320 sr * dabs (hr (en, enml)) + dabs (hr (enrol ,en-2)) 
si - O.OdO 


340 do 360 1 = low, en 

hr(i ,1) * hr(i ,1) - sr 
hi (1 , i ) = hi (i , 1 ) - si 
360 continue 


c 


c 

c 


c 


tr = tr + sr 
tl = tl + si 
Its * Its + 1 
Itn = Itn - 1 

reduce to triangle (rows) 

lpl = 1 + 1 

do 500 1 = lpl, en 
sr = hr(1,1-l) 
hr(i ,1-1) = O.OdO 

norm = pythag(pythag(hr(i-l,1-l) ,hi (i-1, i-1)) ,sr) 

xr = hr(i-l.l-l) / norm 

wr(l-l) = xr 

xl = hi (1-1, i-1) / norm 

wi(i-l) = xi 

hr ( 1 -1,1-1) = norm 

hi (1-1, 1-1) * O.OdO 

hi (i , i-1) = sr / norm 


do 490 J 
yr = 

yi • 


= 1, en 
hr(1-l,j) 
hi (1-1, J) 
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zzr = hr(i,j) 
zz 1 = hi (1 . j) 
hr(i-lj) = xr * yr + xi * yi + hi (1.1-1) * 

hi (1-1, j) = xr * yi - xi * yr 4 hi (1 ,1-1) * 

hr(i,j) = xr * zzr - xi * zzi - hi (i , i -1) * 

hi (i , J) « xr * zzi + xl * zzr - hi (1 r 1-1) * 

490 continue 
c 

500 continue 
c 

si = hi (en,en) 

if (si .eq. O.OdO) go to 540 
norm = pythag(hr(en,en) t s1) 
sr = hr(en.en) / norm 
si = si / norm 
hr(en,en) = norm 
hi(en,en) = O.OdO 

c inverse operation (columns) 

540 do 600 j * Ipl, en 
xr = wr(j-l) 

xi » wi(j-l) 

c 

do 580 1 = 1, j 
yr = hr (1 , j-1) 

, yi = O.OdO 
zzr = hr(1 J) 
zzi = hi (1 r j) 

If (1 .eq. J) go to 560 
yi = hi (i , j-1) 

hi (i, j-1) «= xr * yi + xi * yr 4 hi (j, J-1) * 

560 hr (1 , j-1) = xr * yr - xi * yi 4 hi (j. J-1) * 

hr(IJ) = xr * zzr 4 xi * zzi - hi (J, J-1) * 

hi (1 ,j) = xr * zzi - xi * zzr - hi (J , J-1) * 

580 continue 
c 

600 continue 
c 

If (si .eq. O.OdO) go to 240 
c 

do 630 i = 1, en 
yr = hr(1,en) 
yi = hi (1 ,en) 

hr(1,en) = sr * yr - si * yi 
hi ( 1 , en) = sr * yi 4 si * yr 
630 continue 
c 

go to 240 

c a root found 

660 wr(en) = hr(en.en) + tr 
wi (en) = hi (en,en) 4 ti 
en = enml 
go to 220 


c set error — all eigenvalues have not 

c converged after 30*n iterations 


1000 ierr = en 

1001 return 
end 


subroutine cd1v(ar,a1,br,bi ,cr,ci) 


zzr 

zzi 

yr 

yi 


zzi 

zzr 

yr 

yi 
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double precision ar,ai ,br,bi ,cr,c1 
c 

c complex division, (cr,c1) * (ar,a1)/(br,bi) 
c 

double precision s,ars,a1s,brs,b1 s 

s * dabs(br) + dabs(bi) 

ars * ar/s 

als = al/s 

brs = br/s 

bis = bl/s 

s = brs**2 + b1s**2 

cr * (ars*brs + a1s*b1s)/s 

ci * (ais*brs - ars*bis)/s 

return 

end 


subroutine csroot(xr,x1 ,yr,yi) 
double precision xr.xl.yr.yi 
c 

c (yr.yl) * complex dsqrt(xr.xl) 

c branch chosen so that yr .ge. 0.0 and s1gn(y1) .eq. slgn(xl) 
c 

double precision s,tr,t1 .pythag 
tr * xr 
tl * xi 

s = dsqrt(0.5d0* (pythag (tr.tl) + dabs(tr))) 

if (tr .ge. O.OdO) yr = s 

If (tl .It. O.OdO) s - -s 

If (tr .le. O.OdO) yl «= s 

If (tr .It. O.OdO) yr « 0.5d0*(t1/y1) 

If (tr .gt. O.OdO) yl * 0.5d0*(t1/yr) 

return 

end 


subroutine corth(nm,n,1ow,1gh,ar,a1 .ortr.ortl) 
c 

Integer 1,j,m,n,11,jj,la,mp,nm,1gh,lcpl,low 
double precision ar(nm,n),a1(nm,n),ortr(1gh),ort1(1gh) 
double precision f,g,h,f1 ,fr,scale,pythag 
c 

c this subroutine Is a translation of a complex analogue of 
c the algol procedure orthes, num. math. 12, 349-368(1968) 
c by martin and Wilkinson. 

c handbook for auto, comp., vol .11-1 Inear algebra, 339-358(1971). 
c 

c given a complex general matrix, this subroutine 

c reduces a submatrix situated in rows and columns 

c low through Igh to upper hessenberg form by 

c unitary similarity transformations, 

c 

c on Input 

c 

c nm must be set to the row dimension of two-dimensional 

c array parameters as declared In the calling program 

c dimension statement, 

c 

c n Is the order of the matrix, 

c 
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c low and Igh are integers determined by the balancing 

c subroutine cbal . If cbal has not been used, 

c set low=l , igh=n. 

c 

c ar and ai contain the real and imaginary parts, 

c respectively, of the complex Input matrix, 

c 

c on output 

c 

c ar and ai contain the real and imaginary parts, 

c respectively, of the hessenberg matrix. Information 

c about the unitary transformations used in the reduction 

c is stored In the remaining triangles under the 

c hessenberg matrix, 

c 

c ortr and orti contain further information about the 

c transformations, only elements low through Igh are used, 

c 

c calls pythag for dsqrt(a*a + b*b) . 

c 

c questions and comments should be directed to burton s. garbow, 

c mathematics and computer science div, argonne national laboratory 

c 

c this version dated august 1983. 
c 

c 

c 

la = Igh - 1 
kpl = low + 1 

If (la .It. kpl) go to 200 
c 

do 180 m = kpl, la 


h = O.OdO 
ortr(m) = O.OdO 
orti(m) = O.OdO 
scale = O.OdO 

c scale column (algol tol then not needed) 

do 90 1 = m, Igh 

90 scale = scale + dabs(ar(1 ,m-l)) + dabs(ai (1 ,m-l)) 
c 

If (scale .eq. O.OdO) go to 180 
nip = m + Igh 

c for 1=1gh step -1 until m do -- 


do 100 11 = m, Igh 
1 = mp - ii 

ortr(1) = ar(1,m-l) / scale 
orti ( 1 ) = a1(1,m-l) / scale 
h = h + ortr(1) * ortr(1) + ortl(i) * ortl(i) 
100 continue 

c 

g = dsqrt(h) 

f = pythag (ortr (m), orti (m)) 
if (f .eq. O.OdO) go to 103 
h = h + f * g 

g c g / f 

ortr(m) = (l.OdO + g) * ortr(m) 

ortl(m) = (l.OdO + g) * orti (m) 

go to 105 
c 

103 ortr(m) = g 
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ar(m,m-l) = scale 

c form (1-(u*ut)/h) * a 

105 do 130 j = m, n 
fr = O.OdO 
fl = O.OdO 

c for 1=1 gh step -1 until hi do -- 

do 110 1i = m, 1 gh 
1 = nip - 11 

fr = fr + ortr(1) * ar(1,J) + orti(1) * a1(1,J) 
fl = fl + ortr(1) * a1(1,j) - ortl(l) * ar(1,j) 
110 continue 


fr = fr / h 
fl = fl / h 

do 120 1 = m, Igh 

ar(1,J) = ar(1,j) - fr * ortr(1) + fl * orti(1) 
a1(1,j) = a1(1,j) - fr * ortl(l) - fl * ortr(1) 


120 continue 

c 

130 continue 

c form (1-(u*ut)/h)*a*(1-(u*ut)/h) 

do 160 1 * 1, igh 
fr * O.OdO 
fl = O.OdO 

c for J*1gh step -1 until n do -- 

do 140 Jj = m, Igh 

j s mp - jj 

fr = fr + ortr(j) * ar(1,j) - ortl(j) * a1(1,j) 
fl * fl + ortr(j) * ai (1,J) + orti(J) * ar(1,j) 
140 continue 


fr = fr / h 
fl «= fl / h 

do 150 j * hi, Igh 

ar(1,J) = ar(1,J) - fr * ortr(J) - fl * ortl(J) 
al(IJ) = a1(1,J) + fr * ortl(j) - fl * ortr(J) 
150 continue 

160 continue 

ortr(m) = scale * ortr(m) 
orti(ra) = scale * ortl(m) 
ar(m,m-l) = -g * ar(m,m-l) 
a1(m,m-l) = -g * al(m,Hi-l) 

180 continue 

200 return 
end 


double precision function pythag(a.b) 
double precision a,b 

finds dsqrt(a**2+b**2)" without overflow or destructive underflow 

double precision p,r,s,t,u 
p - dmaxl(dabs(a),dabs(b)) 

If (p .eq. O.OdO) go to 20 
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r = (dm 1 nl(dabs(a),dabs(b))/p )**2 
10 continue 

t = 4.0d0 + r 

If (t .eq. 4.0d0) go to 20 

s = r/t 

u = l.OdO + 2.0d0*s 
p *= u*p 

r = (s/u)**2 * r 
go to 10 
20 pythag = p 
return 
end 


subroutine cbal (nm,n,ar,a1,low,1gh, scale) 
c 

integer 1 , j,k,l ,m,n, jj,nm,1gh,low, iexc 
double precision ar(nm,n),a1(nra,n),scale(n) 
double precision c,f,g,r,s,b2, radix 
logical noconv 
c 

c this subroutine is a translation of the algol procedure 

c cbalance, which is a complex version of balance, 

c num. math. 13, 293-304(1969) by parlett and relnsch. 
c handbook for auto, comp., vol.ll-llnear algebra, 315-326(1971). 
c 

c this subroutine balances a complex matrix and Isolates 
c eigenvalues whenever possible, 

c 

c on input 

c 

c nm must be set to the row dimension of two-dimensional 

c array parameters as declared In the calling program 

c dimension statement, 

c 

c n Is the order of the matrix, 

c 

c ar and al contain the real and Imaginary parts, 

c respectively, of the complex matrix to be balanced, 

c 

c on output 

ar and al contain the real and Imaginary parts, 
respectively, of the balanced matrix. 

low and igh are two Integers such that ar(1,j) and a1(1,j) 
are equal to zero If 

(1) 1 Is greater than j and 

(2) j=l , . . . , low-1 or 1=igh+l, ...,n. 
c 

c scale contains Information determining the 

c permutations and scaling factors used, 

c 

c suppose that the principal submatrix In rows low through Igh 
c has been balanced, that p(j) denotes the Index Interchanged 
c with J during the permutation step, and that the elements 

c of the diagonal matrix used are denoted by d(1,J). then 

c scale(j) = p(j), for j = l,...,low-l 

c * d(j,j) j = low,. ...Igh 

c = p(j) j = 1gh+l,...,n. 
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c the order In which the Interchanges are made Is n to 1gh+l, 
c then 1 to low-1, 

c 

c note that 1 Is returned for Igh If Igh Is zero formally, 
c 

c the algol procedure exc contained In cbalance appears In 

c cbal In line, (note that the algol roles of Identifiers 

c k,l have been reversed.) 

c 

c arithmetic Is real throughout, 

c 

c questions and comments should be directed to burton s. garbow, 

c mathematics and computer science dlv, argonne national laboratory 

c 

c this version dated august 1983. 

c 

c 

c 

radix = 16.0d0 
c 

b2 = radix * radix 
k = 1 
1 = n 
go to 100 

in-line procedure for row and 

column exchange 

20 scale(m) * j 

If (j .eq. m) go to 50 
c 

do 30 1 * 1, 1 
f * ar(l.j) 
ar(IJ) * ar(1,m) 
ar(1,m) * f 
f = al(IJ) 
al(l.j) * a1(1,m) 
a1(1,m) = f 
30 continue 
c 

do 40 1 * k, n 
f * ar(j,1) 
ar(j,1) = ar(m,1) 
ar(m,1) = f 
f » a1(j,1) 
a1(j,1) * al (m,1) 
a1(m,1) = f 
40 continue 
c 

50 go to (80,130), lexc 


c search for rows Isolating an eigenvalue 

c and push them down 

80 if (1 .eq. 1) go to 280 
1 = 1-1 

c for j=l step -1 until 1 do — 


100 do 120 jj = 1, 1 
J - 1 + 1 - Jj 
c 

do 110 1 > 1, 1 

If (1 .eq. J) go to 110 

If (ar(j,1) .ne. O.OdO .or. al (j , 1 ) .ne. O.OdO) go to 120 
110 continue 
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c 

m = 1 
iexc = 1 
go to 20 
120 continue 

go to 140 

search for columns isolating an eigenvalue 

and push them left 

130 k = k + 1 

140 do 170 j = k. 1 

do 150 1 = k, 1 

If (i .eq. J) go to 150 

If (ar(i.j) .ne. O.OdO .or. ai(1J) .ne. O.OdO) go to 170 
150 continue 

m = k 
Iexc = 2 
go to 20 
170 continue 

now balance the submatrix in rows k to 1 

do 180 1 = k. 1 
180 scale(l) = l.OdO 

c Iterative loop for norm reduction 

190 noconv = .false, 
c 

do 270 1 = k, 1 
c = O.OdO 
r * O.OdO 
c 

do 200 j = k, 1 

If (J .eq. 1) go to 200 
c = c + dabs(ar(J,11) + dabs(a1 (j,1)) 
r » r + dabs(ar(1,j)) + dabs(a1(1,j)) 


200 continue 

c guard against zero c or r due to underflow 

If (c .eq. O.OdO .or. r .eq. O.OdO) go to 270 
g = r / radix 
f » l.OdO 
s = c + r 

210 If (c .ge. g) go to 220 
f = f * radix 
c = c * b2 
go to 210 

220 g = r * radix 

230 If (c .It. g) go to 240 

f = f / radix 
c = c / b2 
go to 230 

c now balance 

240 If ((c + r) If .ge. 0.95d0 * s) go to 270 
g = l.OdO / f 
scale(l) = scale(i) * f 
noconv = .true, 
c 


do 250 j = k, n 

ar(i,J) = ar(1 , j) * g 
a1(1 J) * al (1 , j) * g 


- 267 - 



250 


continue 


do 260 j = 1, 1 

ar(j,i) = ar(j , i ) * f 
ai(j,i) = ai(j,1) * f 

260 continue 

270 continue 

if (noconv) go to 190 

280 low = k 
igh = 1 
return 
end 
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APPENDIX B 
SYMBOLS 


a = Orthogonality matrix with respect to the A matrix 

b = Orthogonality matrix with respect to the B matrix 

A = A matrix 

B = B matrix 

c = Damping of a single degree of freedom system 

C = Damping matrix of a n by n degree of freedom system 

F = Load vector of a n by n degree of freedom system 

F(t) = Forcing function vector of a n by n degree of freedom system 

k = Stiffness of a single degree of freedom system 

K = Stiffness matrix of a n by n degree of freedom system 

m = Mass of a single degree of freedom system 

M = Mass matrix of a n by n degree of freedom system 

N = Weighing matrix 

p = Inverse of Eigenvalue matrix, m mode by m modes 
q = Eigenvector, n degree by m modes 

q ~ Eigenvelocity, n degree by m modes 
q = Eigenacceleration, n degree by m modes 
T = Kinetic energy of the system 
U = Strain energy of the system 

V = Potential energy (due to strain and external forces) of the system 
fVnc = Work done by nonconservative forces 
d = Variation taken during two time intervals 

A = Eigenvalue matrix, m mode by m modes 
| ( matrix ) || 2 = Weighted Euclidean norm of the matrix 
(subscriptT) = Refers to measured properties 
( supercriptT) = Transpose 
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